Changeset 6094 for perl5/Perl6-MetaModel/lib/Perl6/Object.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/Object.pm (modified) (1 diff)

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

@@ -99 +99 @@
             'isa' => $isa,
             'can' => $can, 
-            'id' => sub { ::get_obj_id(shift) }
+            'id' => sub { ::get_P6opaque_instance_id(shift) }
         }
     }