X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=lib%2FMouse%2FMeta%2FClass.pm;h=2689f85a6f00eef44d854cdf2934a0fd618feda4;hp=4215efade2174a65f406478514919109276ab2fb;hb=8f98ed261eac95dc093a9b6d22c462c790e63736;hpb=09584bc5021e29580b6f86ac8b81375d0e84e55a diff --git a/lib/Mouse/Meta/Class.pm b/lib/Mouse/Meta/Class.pm index 4215efa..2689f85 100644 --- a/lib/Mouse/Meta/Class.pm +++ b/lib/Mouse/Meta/Class.pm @@ -312,6 +312,7 @@ sub create { || $class->throw_error("You must pass an ARRAY ref of roles") if exists $options{roles}; + # instantiate a module { ( defined $package_name && $package_name ) || $class->throw_error("You must pass a package name"); @@ -340,6 +341,7 @@ sub create { $meta->superclasses(@{$options{superclasses}}) if exists $options{superclasses}; + # NOTE: # process attributes first, so that they can # install accessors, but locally defined methods