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;
return sub{
return !defined($_) || $check->($_);
};
-};
-
-
+}
package Mouse::Meta::Module;
=head1 VERSION
-This document describes Mouse version 0.50_02
+This document describes Mouse version 0.50_03
=head1 SEE ALSO