Moose::Meta::Role::Application::ToMetaclassInstance which was
obsoleted by MU::MetaRole.
use Moose::Meta::Role::Application::ToClass;
use Moose::Meta::Role::Application::ToRole;
use Moose::Meta::Role::Application::ToInstance;
-use Moose::Meta::Role::Application::ToMetaclassInstance;
use Moose::Util::TypeConstraints;
use Moose::Util ();
Moose::Meta::Role::Application::ToClass
Moose::Meta::Role::Application::ToRole
Moose::Meta::Role::Application::ToInstance
- Moose::Meta::Role::Application::ToMetaclassInstance
));
1;
}
}
-sub apply_to_metaclass_instance {
- my ($self, $meta, @args) = @_;
-
- $meta->isa('Moose::Meta::Class') || $meta->isa('Moose::Meta::Role')
- || confess "You must pass in a Moose::Meta::Class or Moose::Meta::Role instance";
-
- require Moose::Meta::Role::Application::ToMetaclassInstance;
- return Moose::Meta::Role::Application::ToMetaclassInstance->new(@args)->apply($self, $meta);
-}
-
sub combine {
my ($class, @role_specs) = @_;