Show
Ignore:
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:
1 modified

Legend:

Unmodified
Added
Removed

  • perl5/Perl6-MetaModel/t/03_DESTROY.t

    r5790 r6094  
    2828        instance => { 
    2929            DESTROY => sub { 
    30                 push @classes_destroyed, (CLASS . '::DESTROY'); 
     30                push @classes_destroyed, ('Foo::DESTROY'); 
    3131            } 
    3232        } 
    … …  
    3939            submethods => { 
    4040                DESTROY => sub { 
    41                     push @classes_destroyed, (CLASS . '::DESTROY'); 
     41                    push @classes_destroyed, ('Bar::DESTROY'); 
    4242                } 
    4343            } 
    … …  
    4949        instance => { 
    5050            DESTROY => sub { 
    51                 push @classes_destroyed, (CLASS . '::DESTROY'); 
     51                push @classes_destroyed, ('Foo::Bar::DESTROY'); 
    5252            } 
    5353        } 
    … …  
    7777        instance => { 
    7878            DESTROY => sub { 
    79                 push @classes_destroyed, (CLASS . '::DESTROY'); 
     79                push @classes_destroyed, ('A::DESTROY'); 
    8080            } 
    8181        } 
    … …  
    8686        instance => { 
    8787            DESTROY => sub { 
    88                 push @classes_destroyed, (CLASS . '::DESTROY'); 
     88                push @classes_destroyed, ('B::DESTROY'); 
    8989            } 
    9090        } 
    … …  
    9595        instance => { 
    9696            DESTROY => sub { 
    97                 push @classes_destroyed, (CLASS . '::DESTROY'); 
     97                push @classes_destroyed, ('C::DESTROY'); 
    9898            } 
    9999        } 
    … …  
    104104        instance => { 
    105105            DESTROY => sub { 
    106                 push @classes_destroyed, (CLASS . '::DESTROY'); 
     106                push @classes_destroyed, ('D::DESTROY'); 
    107107            } 
    108108        }