use warnings;
use Carp 'confess';
-use Mouse::Meta::Attribute;
use Mouse::Util qw(version authority identifier);
do {
my $self = shift;
my $name = shift;
my $spec = shift;
- $self->{attributes}->{$name} = Mouse::Meta::Attribute->new($name, %$spec);
+ $self->{attributes}->{$name} = $spec;
}
sub has_attribute { exists $_[0]->{attributes}->{$_[1]} }
no strict 'refs';
# Get all the CODE symbol table entries
my @functions =
- grep !/^(?:has|with|around|before|after|augment|inner|override|super|blessed|extends|confess|excludes|meta|requires)$/,
+ grep !/^(?:has|with|around|before|after|augment|inner|override|super|blessed|extends|confess|excludes|requires)$/,
grep { defined &{"${name}::$_"} }
keys %{"${name}::"};
wantarray ? @functions : \@functions;