use strict;
use warnings;
-our $VERSION = '0.01';
+our $VERSION = '0.62';
+$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';
use base 'Moose::Meta::Method';
-use Sub::Name;
-
-use Carp qw(confess);
-
sub new {
my ( $class, %args ) = @_;
my $super = $meta->find_next_method_by_name($name);
(defined $super)
- || confess "You cannot augment '$name' because it has no super method";
+ || $meta->throw_error("You cannot augment '$name' because it has no super method", data => $name);
my $_super_package = $super->package_name;
# BUT!,... if this is an overriden method ....
};
# FIXME store additional attrs
- $class->wrap($body);
+ $class->wrap(
+ $body,
+ package_name => $meta->name,
+ name => $name
+ );
}
1;