use strict;
use warnings;
-our $VERSION = '0.04';
+our $VERSION = '0.05';
use 5.006;
use Sub::Exporter;
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_to_class($class);
+ };
+ },
);
my $exporter = Sub::Exporter::build_exporter({