Deprecate CMOP::{load_class, is_class_loaded, load_first_existing_class}

[gitmo/Moose.git] / lib / Class / MOP / Module.pm

diff --git a/lib/Class/MOP/Module.pm b/lib/Class/MOP/Module.pm
index 077cd38..5cc151a 100644 (file)
--- a/lib/Class/MOP/Module.pm
+++ b/lib/Class/MOP/Module.pm
@@ -74,7 +74,7 @@ sub _instantiate_module {
     my($self, $version, $authority) = @_;
     my $package_name = $self->name;
 
-    Class::MOP::_is_valid_class_name($package_name)
+    _is_valid_class_name($package_name)
         || confess "creation of $package_name failed: invalid package name";
 
     $self->add_package_symbol('$VERSION' => $version)
@@ -85,6 +85,18 @@ 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