diff options
author | matthewt <matthewt@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7> | 2008-07-24 01:42:34 +0000 |
---|---|---|
committer | matthewt <matthewt@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7> | 2008-07-24 01:42:34 +0000 |
commit | 8139388160b0a38002b22ff95c3fee3d8380f156 (patch) | |
tree | d7610c5db84c2c996107adb36bca1fe8a2b0b7cb /lib/Reaction/Role.pm | |
parent | 2a4c89335368295f0fc55f79d2c8fd5e33afd212 (diff) | |
download | reaction-8139388160b0a38002b22ff95c3fee3d8380f156.tar.gz reaction-8139388160b0a38002b22ff95c3fee3d8380f156.zip |
rclass stuff ripped out of everything but widget classes
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 |