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

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

@@ -37 +37 @@
         $method = bless sub { 
             unless (ref($_[0]) eq 'FORCE') {
-                return ::next_METHOD() if $_[0]->[0]->{class} ne $associated_with; 
+                return ::next_METHOD() 
+                    ## XXX
+                    # this should not be accessing either the 
+                    # instance_data->name slot, but we cannot
+                    # do anything about it for now ...
+                    if ::get_P6opaque_instance_class($_[0]->[0]) ne $associated_with->{instance_data}->{name}; 
             }
             $old->($_[1]);