use Mouse::Util qw(load_class not_supported);
use Mouse ();
-our @EXPORT = qw(before after around super override inner augment has extends with requires excludes confess blessed);
-
our @EXPORT = qw(
extends with
has
sub has {
my $meta = Mouse::Meta::Role->initialize(scalar caller);
-
my $name = shift;
- my %opts = @_;
- $meta->add_attribute($name => \%opts);
+ $meta->add_attribute($_ => @_) for ref($name) ? @{$name} : $name;
}
sub extends {