around => sub {
return \&Class::Method::Modifiers::around;
},
+
+ with => sub {
+ my $caller = $CALLER;
+
+ return sub {
+ my $role = shift;
+ my $class = $caller->meta;
+
+ confess "Mouse::Role only supports 'with' on individual roles at a time" if @_;
+
+ Mouse::load_class($role);
+ $role->meta->apply($class);
+ };
+ },
);
my $exporter = Sub::Exporter::build_exporter({