1 package Reaction::Role;
4 use Reaction::ClassExporter;
6 use Moose::Meta::Class;
7 #TODO: review for Reaction::Object switch / Reaction::Meta::Class
8 *Moose::Meta::Role::add_method = sub {
9 Moose::Meta::Class->can("add_method")->(@_);
14 override exports_for_package => sub {
15 my ($self, $package) = @_;
16 my %exports = $self->SUPER::exports_for_package($package);
17 delete $exports{class};
18 $exports{role} = sub { $self->do_role_sub($package, @_); };
22 override next_import_package => sub { 'Moose::Role' };
24 override default_base => sub { () };
26 implements do_role_sub => as {
27 my ($self, $package, $role, $which, $setup) = @_;
28 confess "Invalid role declaration, should be: role Role which { ... }"
29 unless ($which eq 'which' && ref($setup) eq 'CODE');
30 $self->setup_and_cleanup($role, $setup);
49 See L<Reaction::Class> for authors.
53 See L<Reaction::Class> for the license.