Changeset 6094 for perl5/Perl6-MetaModel/lib/Perl6/MetaClass.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/MetaClass.pm (modified) (2 diffs)

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

@@ -7 +7 @@
 use Scalar::Util 'blessed';
 use Carp 'confess';
-
-use Perl6::MetaClass::Dispatcher;
 
 sub new {
@@ -240 +238 @@
         'dispatcher' => Perl6::Method->create_instance_method('Perl6::MetaClass' => sub {   
             my ($self, $order) = @_;
+            require Perl6::MetaClass::Dispatcher;
             Perl6::MetaClass::Dispatcher->new($self, $order);
         })