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;
sub parent { $_[0]->{parent} }
sub message { $_[0]->{message} }
-sub type_parameter { $_[0]->{type_parameter} }
-sub __is_parameterized { exists $_[0]->{type_parameter} }
-
+sub type_parameter { $_[0]->{type_parameter} }
sub _compiled_type_constraint{ $_[0]->{compiled_type_constraint} }
-
sub _compiled_type_coercion { $_[0]->{_compiled_type_coercion} }
-sub has_coercion{ exists $_[0]->{_compiled_type_coercion} }
+sub __is_parameterized { exists $_[0]->{type_parameter} }
+sub has_coercion { exists $_[0]->{_compiled_type_coercion} }
sub compile_type_constraint{
package Mouse::Object;
-
sub BUILDARGS {
my $class = shift;
my $e = do{
local $@;
eval{
-
# DEMOLISHALL
# We cannot count on being able to retrieve a previously made