diff options
Diffstat (limited to 'lib/Reaction/Role.pm')
-rw-r--r-- | lib/Reaction/Role.pm | 43 |
1 files changed, 22 insertions, 21 deletions
diff --git a/lib/Reaction/Role.pm b/lib/Reaction/Role.pm index f5e89b5..ea09925 100644 --- a/lib/Reaction/Role.pm +++ b/lib/Reaction/Role.pm @@ -7,34 +7,35 @@ use Moose::Meta::Class; #TODO: review for Reaction::Object switch / Reaction::Meta::Class -class Role which { +use namespace::clean -except => [ qw(meta) ]; - override exports_for_package => sub { - my ($self, $package) = @_; - my %exports = $self->SUPER::exports_for_package($package); - delete $exports{class}; - $exports{role} = sub { $self->do_role_sub($package, @_); }; - return %exports; - }; - override next_import_package => sub { 'Moose::Role' }; - - override default_base => sub { () }; +override exports_for_package => sub { + my ($self, $package) = @_; + my %exports = $self->SUPER::exports_for_package($package); + delete $exports{class}; + $exports{role} = sub { $self->do_role_sub($package, @_); }; + return %exports; +}; - override add_method_to_target => sub { - my ($self, $target, $method) = @_; - $target->meta->alias_method(@$method); - }; +override next_import_package => sub { 'Moose::Role' }; - implements do_role_sub => as { - my ($self, $package, $role, $which, $setup) = @_; - confess "Invalid role declaration, should be: role Role which { ... }" - unless ($which eq 'which' && ref($setup) eq 'CODE'); - $self->setup_and_cleanup($role, $setup); - }; +override default_base => sub { () }; +override add_method_to_target => sub { + my ($self, $target, $method) = @_; + $target->meta->alias_method(@$method); +}; +sub do_role_sub { + my ($self, $package, $role, $which, $setup) = @_; + confess "Invalid role declaration, should be: role Role which { ... }" + unless ($which eq 'which' && ref($setup) eq 'CODE'); + $self->setup_and_cleanup($role, $setup); }; +__PACKAGE__->meta->make_immutable; + + 1; =head1 NAME |