Make bench require XSAccessor to fix blowups when it's not there

Also make sure that Method::Generate::Accessor really thinks it can do
XS.

diff --git a/benchmark/object_factory b/benchmark/object_factory
index ed83479..dae129d 100644 (file)
--- a/benchmark/object_factory
+++ b/benchmark/object_factory
@@ -24,6 +24,7 @@ BEGIN {
     Moo
     Mouse
     Mousse
+    Class::XSAccessor
   /) {
     eval "require $_" or push @missing, $_;
   }
@@ -57,10 +58,12 @@ if ($opts->{bench} =~ /all|pp/) {
 }
 
 if ($opts->{bench} =~ /all|xs/) {
+  if (! $Method::Generate::Accessor::CAN_HAZ_XS)
   {
-    local $Method::Generate::Accessor::CAN_HAZ_XS = 1;
-    _add_moosey_has (moo_XS => 'Moo');
+    die "Requested XS benchmarks but XS isn't available in Method::Generate::Accessor";
   }
+
+  _add_moosey_has (moo_XS => 'Moo');
   _add_moosey_has (mouse_XS => 'Mouse')
 }