From: Matt S Trout <matthewt@hercule.scsys.co.uk>
Date: Wed, 10 Nov 2010 08:08:24 +0000 (+0000)
Subject: split benches up for readability
X-Git-Tag: 0.009001~41
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=18a09449ad090b2c80728cc1224d15455f17e02e;p=gitmo%2FRole-Tiny.git

split benches up for readability
---

diff --git a/benchmark/class_factory b/benchmark/class_factory
index a168a6b..af4b9e7 100644
--- a/benchmark/class_factory
+++ b/benchmark/class_factory
@@ -85,7 +85,12 @@ for (1, 2) {
   print "Perl $], take $_:\n";
 
   # if forking must run for certain number of cycles, cputime doesn't work
-  cmpthese ( $opts->{subprocess} ? 15 : -1 , $tasks );
+  foreach my $type (sort keys %$attrs_to_bench) {
+    print "Benchming ${type}:\n";
+    my %these = map { (split ' ', $_)[0] => $tasks->{$_} }
+      grep /${type}$/, keys %$tasks;
+    cmpthese ( $opts->{subprocess} ? 15 : -1 , \%these );
+  }
   print "\n";
 }
 
@@ -94,9 +99,6 @@ exit 0; # the end
 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(_XS)?$/ );
-
   my @to_eval;
 
   for (1 .. $opts->{pregenerate} ) {