Changeset 6094 for perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm

Timestamp:

08/06/05 23:00:58 (3 years ago)

Author:

Stevan

Message:

Perl6::MetaModel? - (p5)
* $?CLASS now returns the ::Class object
* all methods and attributes are now associated with the ::Class object

instead of just the class name

* improved the name of ::get_obj_id to ::get_P6opaque_instance_id so that

no one will try to use it :P

* also added ::get_P6opaque_instance_class to peek into the class slot

(needed this for submethods)

Files:

• perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm (modified) (1 diff)

perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm

@@ -76 +76 @@
 # this means that our code should not try to peak into it
 # and so we should then use some kind of outside mechanism 
-# to get at the object id
-sub ::get_obj_id { (shift)->{id} }
+# to get at the object id and class 
+sub ::get_P6opaque_instance_id    { (shift)->{id}    }
+sub ::get_P6opaque_instance_class { (shift)->{class} }
 
 sub ::meta {