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/lib/Perl6/MetaClass.pm

    r6092 r6094  
    77use Scalar::Util 'blessed'; 
    88use Carp 'confess'; 
    9  
    10 use Perl6::MetaClass::Dispatcher; 
    119 
    1210sub new { 
     
    240238        'dispatcher' => Perl6::Method->create_instance_method('Perl6::MetaClass' => sub {    
    241239            my ($self, $order) = @_; 
     240            require Perl6::MetaClass::Dispatcher; 
    242241            Perl6::MetaClass::Dispatcher->new($self, $order); 
    243242        })