diff options
Diffstat (limited to 'lib/Reaction/Role.pm')
-rw-r--r-- | lib/Reaction/Role.pm | 9 |
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 { ... }" |