delete $is_removable{blessed};
delete $is_removable{confess};
-sub extends { Mouse::Meta::Class->initialize(caller)->superclasses(@_) }
+sub extends { Mouse::Meta::Class->initialize(scalar caller)->superclasses(@_) }
sub has {
- my $meta = Mouse::Meta::Class->initialize(caller);
+ my $meta = Mouse::Meta::Class->initialize(scalar caller);
$meta->add_attribute(@_);
}
sub before {
- my $meta = Mouse::Meta::Class->initialize(caller);
+ my $meta = Mouse::Meta::Class->initialize(scalar caller);
my $code = pop;
}
sub after {
- my $meta = Mouse::Meta::Class->initialize(caller);
+ my $meta = Mouse::Meta::Class->initialize(scalar caller);
my $code = pop;
}
sub around {
- my $meta = Mouse::Meta::Class->initialize(caller);
+ my $meta = Mouse::Meta::Class->initialize(scalar caller);
my $code = pop;
}
sub with {
- Mouse::Util::apply_all_roles((caller)[0], @_);
+ Mouse::Util::apply_all_roles(scalar(caller), @_);
}
our $SUPER_PACKAGE;