use Carp ();
use Scalar::Util qw/blessed weaken/;
-use Mouse::Util qw/get_code_info not_supported load_class/;
+use Mouse::Util qw/:meta get_code_info not_supported load_class/;
{
my %METACLASS_CACHE;
}
-sub meta{ Mouse::Meta::Class->initialize(ref $_[0] || $_[0]) }
-
sub _new{ Carp::croak("Mouse::Meta::Module is an abstract class") }
sub name { $_[0]->{package} }
my($self, $name, $code) = @_;
if(!defined $name){
- $self->throw_error("You must pass a defined name");
+ $self->throw_error('You must pass a defined name');
+ }
+ if(!defined $code){
+ $self->throw_error('You must pass a defined code');
}
+
if(ref($code) ne 'CODE'){
not_supported 'add_method for a method object';
}
=head1 NAME
-Mouse::Meta::Module - Common base class for Mouse::Meta::Class and Mouse::Meta::Role
+Mouse::Meta::Module - The base class for Mouse::Meta::Class and Mouse::Meta::Role
=cut
+