use Moose;
use Class::MOP;
+use Class::Load ':all';
use String::RewritePrefix;
use Moose::Util qw/find_meta/;
use List::Util qw/first/;
sub _build__action_roles {
my $self = shift;
my @roles = $self->_expand_role_shortname($self->_action_role_args);
- Class::MOP::load_class($_) for @roles;
+ load_class($_) for @roles;
return \@roles;
}
sub _apply_action_class_roles {
my ($self, $class, @roles) = @_;
- Class::MOP::load_class($_) for @roles;
+ load_class($_) for @roles;
my $meta = Moose::Meta::Class->initialize($class)->create_anon_class(
superclasses => [$class],
roles => \@roles,
return String::RewritePrefix->rewrite(
{ '' => sub {
- my $loaded = Class::MOP::load_first_existing_class(
+ my $loaded = load_first_existing_class(
map { "$_$_[0]" } @prefixes
);
return first { $loaded =~ /^$_/ }