use Class::MOP::Attribute;
use Class::MOP::Method;
-our $VERSION = '0.29_02';
+use Class::MOP::Class::Immutable;
+
+our $VERSION = '0.31';
## ----------------------------------------------------------------------------
## Setting up our environment ...
# any subclass of Class::MOP::* will be able to
# inherit them using &construct_instance
-## Class::MOP::Class
+## Class::MOP::Package
-Class::MOP::Class->meta->add_attribute(
+Class::MOP::Package->meta->add_attribute(
Class::MOP::Attribute->new('$:package' => (
reader => {
# NOTE: we need to do this in order
))
);
+## Class::MOP::Class
+
Class::MOP::Class->meta->add_attribute(
Class::MOP::Attribute->new('%:attributes' => (
reader => {
$self->meta->clone_object($self, @_);
});
+## Try and close Class::MOP::*
+
+Class::MOP::Package ->meta->make_immutable(inline_constructor => 0);
+Class::MOP::Module ->meta->make_immutable(inline_constructor => 0);
+Class::MOP::Class ->meta->make_immutable(inline_constructor => 0);
+Class::MOP::Attribute->meta->make_immutable(inline_constructor => 0);
+Class::MOP::Method ->meta->make_immutable(inline_constructor => 0);
+Class::MOP::Instance ->meta->make_immutable(inline_constructor => 0);
+
+
1;
__END__
=back
-=head1 AUTHOR
+=head1 AUTHORS
Stevan Little E<lt>stevan@iinteractive.comE<gt>
+Yuval Kogman E<lt>nothingmuch@woobling.comE<gt>
+
=head1 COPYRIGHT AND LICENSE
Copyright 2006 by Infinity Interactive, Inc.