aboutsummaryrefslogtreecommitdiffstats
path: root/lib/Reaction/Role.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Reaction/Role.pm')
-rw-r--r--lib/Reaction/Role.pm9
1 files changed, 9 insertions, 0 deletions
diff --git a/lib/Reaction/Role.pm b/lib/Reaction/Role.pm
index 7da166f..c2f16f4 100644
--- a/lib/Reaction/Role.pm
+++ b/lib/Reaction/Role.pm
@@ -25,6 +25,15 @@ override add_method_to_target => sub {
my ($self, $target, $method) = @_;
$target->meta->add_method(@$method);
};
+override next_import => sub {
+ my ($self) = @_;
+ my $import = super;
+ # ugh
+ return sub {
+ push @_, '-metaclass' => 'Reaction::Meta::Role';
+ goto $import;
+ };
+};
sub do_role_sub {
my ($self, $package, $role, $which, $setup) = @_;
confess "Invalid role declaration, should be: role Role which { ... }"