X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=benchmark%2Fclass_factory;fp=benchmark%2Fclass_factory;h=af4b9e79ed548045eeae0ee84ca3ffbf29c09114;hb=18a09449ad090b2c80728cc1224d15455f17e02e;hp=a168a6b8cf1858e2cf1a45965f7f5c944578b1ef;hpb=9187b8624f5faa77cf54e6c8e1656a4e2e23f564;p=gitmo%2FMoo.git

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} ) {