use Carp 'confess';
use Scalar::Util 'blessed';
-our $VERSION = '0.78_02';
+our $VERSION = '0.81';
$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';
# that has been made immutable and for that we need
# to dig a bit ...
if ($self->isa('Class::MOP::Class')) {
- return $self->{'___original_class'}->meta;
+ return Class::MOP::class_of($self->{'___original_class'});
}
else {
return $self;
my $self = shift;
my $metaclass = $self->metaclass;
- my $meta = $metaclass->meta;
+ my $meta = Class::MOP::class_of($metaclass);
return {
%DEFAULT_METHODS,
sub _make_read_only_methods {
my $self = shift;
- my $metameta = $self->metaclass->meta;
+ my $metameta = Class::MOP::class_of($self->metaclass);
my %methods;
foreach my $read_only_method ( @{ $self->options->{read_only} } ) {
my %methods;
- my $metameta = $self->metaclass->meta;
+ my $metameta = Class::MOP::class_of($self->metaclass);
my $memoized_methods = $self->options->{memoize};
foreach my $method_name ( keys %{$memoized_methods} ) {
my $wrapped_methods = $self->options->{wrapped};
- my $metameta = $self->metaclass->meta;
+ my $metameta = Class::MOP::class_of($self->metaclass);
foreach my $method_name ( keys %{$wrapped_methods} ) {
my $method = $metameta->find_method_by_name($method_name);
remove_package_symbol
/],
memoize => {
- class_precedence_list => 'ARRAY',
- compute_all_applicable_attributes => 'ARRAY',
- get_meta_instance => 'SCALAR',
- get_method_map => 'SCALAR',
+ class_precedence_list => 'ARRAY',
+ get_all_attributes => 'ARRAY',
+ get_meta_instance => 'SCALAR',
+ get_method_map => 'SCALAR',
}
});