diff options
author | Justin Hunter <justin.d.hunter@gmail.com> | 2010-11-08 10:38:09 -0800 |
---|---|---|
committer | Justin Hunter <justin.d.hunter@gmail.com> | 2010-11-08 10:38:09 -0800 |
commit | badce0a4eb98adb2cdf718f37281a7a12915dc5c (patch) | |
tree | 34fbcb15ee86bdc5788baa6a3fb8e7831d02b977 | |
parent | ff956a11c9843b63a59a26ecef193fa46df2c0f1 (diff) | |
download | reaction-badce0a4eb98adb2cdf718f37281a7a12915dc5c.tar.gz reaction-badce0a4eb98adb2cdf718f37281a7a12915dc5c.zip |
as of 0.58, "Roles now add methods by calling add_method, not alias_method."
-rw-r--r-- | lib/Reaction/Role.pm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lib/Reaction/Role.pm b/lib/Reaction/Role.pm index ea09925..7da166f 100644 --- a/lib/Reaction/Role.pm +++ b/lib/Reaction/Role.pm @@ -9,7 +9,6 @@ use Moose::Meta::Class; use namespace::clean -except => [ qw(meta) ]; - override exports_for_package => sub { my ($self, $package) = @_; my %exports = $self->SUPER::exports_for_package($package); @@ -24,7 +23,7 @@ override default_base => sub { () }; override add_method_to_target => sub { my ($self, $target, $method) = @_; - $target->meta->alias_method(@$method); + $target->meta->add_method(@$method); }; sub do_role_sub { my ($self, $package, $role, $which, $setup) = @_; |