use strict;
use warnings;
+use 5.008;
+
use MRO::Compat;
use Carp 'confess';
require Devel::GlobalDestruction;
Devel::GlobalDestruction->import("in_global_destruction");
1;
- } or *in_global_destruction = sub () { '' };
+ } or *in_global_destruction = sub () { !1 };
}
: sub () { 1 };
}
-our $VERSION = '0.65';
+our $VERSION = '0.64_06';
+our $XS_VERSION = $VERSION;
+$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';
# after that everything is loaded, if we're allowed try to load faster XS
local $@;
eval {
require XSLoader;
- __PACKAGE__->XSLoader::load($VERSION);
+ __PACKAGE__->XSLoader::load($XS_VERSION);
};
$@;
};
# if the class is not already loaded in the symbol table..
unless (is_class_loaded($class)) {
# require it
- my $file = $class . '.pm';
- $file =~ s{::}{/}g;
- my $e = do { local $@; eval { require($file) }; $@ };
+ my $e = do { local $@; eval "require $class"; $@ };
confess "Could not load class ($class) because : $e" if $e;
}
Class::MOP::Instance->meta->add_attribute(
Class::MOP::Attribute->new('attributes',
- reader => { attributes => \&Class::MOP::Instance::attributes },
+ reader => { attributes => \&Class::MOP::Instance::get_all_attributes },
),
);