X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FClass%2FMOP%2FModule.pm;h=c1a813c4754c511dca3c4fa480057c93135c1584;hb=a77d943b2fc2b6e3e6eff2cd130ae5fc0ef70ed5;hp=5cc151acf4effb1f1a9e919174161f8383a67846;hpb=c7fce1821d0461e4e867366131e77b0047026412;p=gitmo%2FMoose.git diff --git a/lib/Class/MOP/Module.pm b/lib/Class/MOP/Module.pm index 5cc151a..c1a813c 100644 --- a/lib/Class/MOP/Module.pm +++ b/lib/Class/MOP/Module.pm @@ -74,9 +74,6 @@ sub _instantiate_module { my($self, $version, $authority) = @_; my $package_name = $self->name; - _is_valid_class_name($package_name) - || confess "creation of $package_name failed: invalid package name"; - $self->add_package_symbol('$VERSION' => $version) if defined $version; $self->add_package_symbol('$AUTHORITY' => $authority) @@ -85,18 +82,6 @@ sub _instantiate_module { return; } -sub _is_valid_class_name { - my $class = shift; - - return 0 if ref($class); - return 0 unless defined($class); - return 0 unless length($class); - - return 1 if $class =~ /^\w+(?:::\w+)*$/; - - return 0; -} - 1; # ABSTRACT: Module Meta Object