implement Attribute.{get,set}_value

rakudo · Sep 29, 2010 · 100b868 · 100b868
1 parent 6241883
commit 100b868
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/src/core/Attribute.pm b/src/core/Attribute.pm
@@ -3,4 +3,11 @@ augment class Attribute {
         $!has_accessor ?? True !! False
     }
     method Str() { self.name }
+
+    method get_value(Mu $obj) {
+        pir::getattribute__PPS($obj, self.name);
+    }
+    method set_value(Mu $obj, Mu $new_val) {
+        pir::setattribute__vPSP($obj,  self.name, $new_val);
+    }
 }