use 5.006;
use base 'Exporter';
-our $VERSION;
+our $VERSION = '0.13';
+use 5.006;
BEGIN {
- $VERSION = '0.12';
-
if ($ENV{MOUSE_DEBUG}) {
*DEBUG = sub (){ 1 };
} else {
}
use Carp 'confess';
-use Mouse::Util 'blessed';
+use Scalar::Util 'blessed';
+use Mouse::Util;
use Mouse::Meta::Attribute;
use Mouse::Meta::Class;
confess "Invalid class name ($display)";
}
+ return 1 if $class eq 'Mouse::Object';
return 1 if is_class_loaded($class);
(my $file = "$class.pm") =~ s{::}{/}g;