aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJustin Hunter <justin.d.hunter@gmail.com>2010-11-08 10:38:09 -0800
committerJustin Hunter <justin.d.hunter@gmail.com>2010-11-08 10:38:09 -0800
commitbadce0a4eb98adb2cdf718f37281a7a12915dc5c (patch)
tree34fbcb15ee86bdc5788baa6a3fb8e7831d02b977
parentff956a11c9843b63a59a26ecef193fa46df2c0f1 (diff)
downloadreaction-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.pm3
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) = @_;