X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=lib%2FMouse%2FPurePerl.pm;h=94d57d888749699a97a3d49a398afe7fd874508a;hp=2aa712ecf2e312e0b15b3290867ef43275ee43cb;hb=9b923ac8adb9442186c3f7cc09cd4d307d6458d7;hpb=d503a4f3aa9eda772309f6c99ccd4dfcdfed059d

diff --git a/lib/Mouse/PurePerl.pm b/lib/Mouse/PurePerl.pm
index 2aa712e..94d57d8 100644
--- a/lib/Mouse/PurePerl.pm
+++ b/lib/Mouse/PurePerl.pm
@@ -11,6 +11,19 @@ use warnings FATAL => 'redefine'; # to avoid to load Mouse::PurePerl
 
 use B ();
 
+
+# taken from Class/MOP.pm
+sub is_valid_class_name {
+    my $class = shift;
+
+    return 0 if ref($class);
+    return 0 unless defined($class);
+
+    return 1 if $class =~ /\A \w+ (?: :: \w+ )* \z/xms;
+
+    return 0;
+}
+
 sub is_class_loaded {
     my $class = shift;
 
@@ -193,9 +206,7 @@ sub _parameterize_Maybe_for {
     return sub{
         return !defined($_) || $check->($_);
     };
-};
-
-
+}
 
 package Mouse::Meta::Module;
 
@@ -672,7 +683,7 @@ Mouse::PurePerl - A Mouse guts in pure Perl
 
 =head1 VERSION
 
-This document describes Mouse version 0.50_02
+This document describes Mouse version 0.50_03
 
 =head1 SEE ALSO