use MRO::Compat;
use Sub::Name ();
-our $VERSION = '0.09000';
-
-BEGIN {
- our $hasXS;
-
- sub _hasXS {
- return $hasXS if defined $hasXS;
-
- $hasXS = 0;
- eval {
- require Class::XSAccessor;
- $hasXS = 1;
- };
-
- return $hasXS;
- }
-}
+our $VERSION = '0.09001';
+$VERSION = eval $VERSION;
=head1 NAME
return @{mro::get_linear_isa($class)};
};
+# This is now a hard, rather than optional dep. Since we dep on Sub::Name, we no
+# longer care about not using XS modules.
+{
+ our $hasXS;
+
+ sub _hasXS {
+ return $hasXS if defined $hasXS;
+
+ $hasXS = 0;
+ eval {
+ require Class::XSAccessor;
+ $hasXS = 1;
+ };
+
+ return $hasXS;
+ }
+}
+
1;
=head1 AUTHORS