},
);
- our $VERSION = '0.73';
+ our $VERSION = '0.87';
my $xs = !(defined(&is_valid_class_name) || $ENV{MOUSE_PUREPERL} || $ENV{PERL_ONLY});
BEGIN {
my $get_linear_isa;
- if ($] >= 5.009_005) {
- require mro;
+ if (eval { require mro }) {
$get_linear_isa = \&mro::get_linear_isa;
- } else {
+ }
+ else {
# this code is based on MRO::Compat::__get_linear_isa
my $_get_linear_isa_dfs; # this recurses so it isn't pretty
$_get_linear_isa_dfs = sub {
=head1 VERSION
-This document describes Mouse version 0.73
+This document describes Mouse version 0.87
=head1 SYNOPSIS
=head3 C<< Mouse::Util::get_all_metaclass_names() -> (ClassNames) >>
-=head2 MRO::Compat
+=head2 mro (or MRO::Compat)
=head3 C<get_linear_isa>
L<Sub::Identify>
+L<mro>
+
L<MRO::Compat>
=cut