unless grep { $_->isa('Moose::Object') } @parents;
my $container_pkg = 'MooseX::ClassAttribute::Container::' . $caller;
+ my $instance_holder = $container_pkg . '::Self';
my $instance_meth = sub {
no strict 'refs'; ## no critic ProhibitNoStrict
- return ${ $container_pkg . '::Self' } ||= shift->new(@_);
+ return $$instance_holder ||= shift->new(@_);
};
my $class =
);
__PACKAGE__->meta()->make_immutable();
- MooseX::ClassAttribute::containing_class()->meta()->make_immutable();
+ MooseX::ClassAttribute::container_class()->meta()->make_immutable();
no Moose;
no MooseX::ClassAttribute;
about this too much, except when it comes to making a class immutable.
Since the class attributes are not really stored in your class, you
-need to make the containing class immutable as well as your own ...
+need to make the container class immutable as well as your own ...
__PACKAGE__->meta()->make_immutable();
- MooseX::ClassAttribute::containing_class()->meta()->make_immutable();
+ MooseX::ClassAttribute::container_class()->meta()->make_immutable();
I<This may change in the future!>