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]} }