use Mouse::Meta::Module;
our @ISA = qw(Mouse::Meta::Module);
-sub method_metaclass(){ 'Mouse::Meta::Role::Method' } # required for get_method()
+sub method_metaclass;
sub _construct_meta {
my $class = shift;
my %args = @_;
- $args{methods} ||= {};
- $args{attributes} ||= {};
- $args{required_methods} ||= [];
- $args{roles} ||= [];
+ $args{methods} = {};
+ $args{attributes} = {};
+ $args{required_methods} = [];
+ $args{roles} = [];
my $self = bless \%args, ref($class) || $class;
if($class ne __PACKAGE__){
my $instance;
- if(Mouse::Util::TypeConstraints::_is_a_metaclass($applicant)){ # Application::ToClass
+ if(Mouse::Util::is_a_metaclass($applicant)){ # Application::ToClass
$args{_to} = 'class';
}
- elsif(Mouse::Util::TypeConstraints::_is_a_metarole($applicant)){ # Application::ToRole
+ elsif(Mouse::Util::is_a_metarole($applicant)){ # Application::ToRole
$args{_to} = 'role';
}
else{ # Appplication::ToInstance
=head1 VERSION
-This document describes Mouse version 0.40_01
+This document describes Mouse version 0.42
=head1 SEE ALSO