use strict;
use warnings;
use Carp 'confess';
+use Mouse::Util;
do {
my %METACLASS_CACHE;
no strict 'refs';
# Get all the CODE symbol table entries
my @functions =
- grep !/(?:has|with|around|before|after|blessed|extends|confess|excludes|meta|requires)/,
+ grep !/^(?:has|with|around|before|after|blessed|extends|confess|excludes|meta|requires)$/,
grep { defined &{"${name}::$_"} }
keys %{"${name}::"};
wantarray ? @functions : \@functions;
for my $name ($self->get_attribute_list) {
next if $class->has_attribute($name);
my $spec = $self->get_attribute($name);
- Mouse::Meta::Attribute->create($class, $name, %$spec);
+
+ my $metaclass = 'Mouse::Meta::Attribute';
+ if ( my $metaclass_name = $spec->{metaclass} ) {
+ my $new_class = Mouse::Util::resolve_metaclass_alias(
+ 'Attribute',
+ $metaclass_name
+ );
+ if ( $metaclass ne $new_class ) {
+ $metaclass = $new_class;
+ }
+ }
+
+ $metaclass->create($class, $name, %$spec);
}
} else {
# apply role to role
for my $name ($self->get_attribute_list) {
next if $class->has_attribute($name);
my $spec = $self->get_attribute($name);
- Mouse::Meta::Attribute->create($class, $name, %$spec);
+
+ my $metaclass = 'Mouse::Meta::Attribute';
+ if ( my $metaclass_name = $spec->{metaclass} ) {
+ my $new_class = Mouse::Util::resolve_metaclass_alias(
+ 'Attribute',
+ $metaclass_name
+ );
+ if ( $metaclass ne $new_class ) {
+ $metaclass = $new_class;
+ }
+ }
+
+ $metaclass->create($class, $name, %$spec);
}
}
} else {