X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMouse%2FMeta%2FModule.pm;h=bc74808e126f3533c1d2c19179a3e5fc6aa2bc9d;hb=98e392b90e66275efbacd8e33488e0b02b4960d4;hp=b9281a8a2e39910d332cfda88bedbbc334b477e5;hpb=542f20adaffff1539921032f24c8c1893080fc8c;p=gitmo%2FMouse.git diff --git a/lib/Mouse/Meta/Module.pm b/lib/Mouse/Meta/Module.pm index b9281a8..bc74808 100755 --- a/lib/Mouse/Meta/Module.pm +++ b/lib/Mouse/Meta/Module.pm @@ -32,6 +32,8 @@ sub initialize { sub reinitialize { my($class, $package_name, @args) = @_; + $package_name = $package_name->name if ref $package_name; + ($package_name && !ref($package_name)) || $class->throw_error("You must pass a package name and it cannot be blessed");