From: Peter Rabbitson <ribasushi@cpan.org>
Date: Wed, 10 Nov 2010 04:16:56 +0000 (+0100)
Subject: This benchmark is even saner
X-Git-Tag: 0.009001~44
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c9b16e360360298123710aad528aa51ff9c9c1b1;p=gitmo%2FRole-Tiny.git

This benchmark is even saner
---

diff --git a/benchmark/class_factory b/benchmark/class_factory
index 1b2658d..8f60bf2 100644
--- a/benchmark/class_factory
+++ b/benchmark/class_factory
@@ -95,7 +95,7 @@ sub _add_moosey_has {
   my ($name, $base, $attr_type) = @_;
 
   # this works only with Moo, not with Moose, not with Mouse
-  return if ($attr_type =~ /qsub/ and $name !~ /moo\b/ );
+  return if ($attr_type =~ /qsub/ and $name !~ /^moo(_XS)?$/ );
 
   my @to_eval;
 
@@ -114,7 +114,7 @@ sub _add_moosey_has {
       }
 
       $perl .= '__PACKAGE__->meta->make_immutable;'
-        if $name !~ /moo\b/;
+        if $name !~ /^moo(_XS)?$/;
 
       $counters->{accessors} = 0
         unless $opts->{unique};