8 package ApplicationMetaRole;
10 use Moose::Util::MetaRole;
13 my ($self, $role_source, $role_dest, $args) = @_;
14 Moose::Util::MetaRole::apply_metaroles
19 application_to_role => ['ApplicationMetaRole'],
27 use Moose::Util::MetaRole;
30 Moose::Exporter->setup_import_methods(also => q<Moose::Role>);
33 my ($class, %opts) = @_;
34 Moose::Role->init_meta(%opts);
35 Moose::Util::MetaRole::apply_metaroles
37 for => $opts{for_class},
40 application_to_role => ['ApplicationMetaRole'],
43 return $opts{for_class}->meta();
53 use Moose::Util::TypeConstraints;
64 ::is(::exception { with "MyRole" }, undef,
65 "apply a meta role to a role, which is then applied to yet another role");