use namespace::clean -except => [ qw(meta) ];
-
override exports_for_package => sub {
my ($self, $package) = @_;
my %exports = $self->SUPER::exports_for_package($package);
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) = @_;