use Class::MOP::Attribute;
use Class::MOP::Method;
-use Class::MOP::Class::Immutable;
+use Class::MOP::Immutable;
-our $VERSION = '0.36';
+our $VERSION = '0.37';
our $AUTHORITY = 'cpan:STEVAN';
{
);
Class::MOP::Method::Constructor->meta->add_attribute(
- Class::MOP::Attribute->new('$!meta_instance' => (
- init_arg => 'meta_instance',
+ Class::MOP::Attribute->new('$!associated_metaclass' => (
+ init_arg => 'metaclass',
reader => {
- 'meta_instance' => \&Class::MOP::Method::Constructor::meta_instance
- },
- ))
-);
-
-Class::MOP::Method::Constructor->meta->add_attribute(
- Class::MOP::Attribute->new('@!attributes' => (
- init_arg => 'attributes',
- reader => {
- 'attributes' => \&Class::MOP::Method::Constructor::attributes
- },
+ 'associated_metaclass' => \&Class::MOP::Method::Constructor::associated_metaclass
+ },
))
);
=head1 COPYRIGHT AND LICENSE
-Copyright 2006 by Infinity Interactive, Inc.
+Copyright 2006, 2007 by Infinity Interactive, Inc.
L<http://www.iinteractive.com>