X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=benchmarks%2Fmodifiers.pl;h=fa6b440a1319e48e7a22e8a5d2afb76ba9909b5a;hb=f43060b65ad710abc58ab3e1f4288a71deb00ec6;hp=d8b286f31413ba565d47c910b3eb46fb67484941;hpb=3fac36bed469b7bf8a80c9a10f2c38c2bdfab5d4;p=gitmo%2FMouse.git diff --git a/benchmarks/modifiers.pl b/benchmarks/modifiers.pl index d8b286f..fa6b440 100644 --- a/benchmarks/modifiers.pl +++ b/benchmarks/modifiers.pl @@ -11,10 +11,6 @@ use Class::Method::Modifiers (); printf "Perl %vd on $Config{archname}\n", $^V; my @mods = qw(Moose Mouse Class::Method::Modifiers); -if(eval{ require Class::Method::Modifiers::Fast }){ - push @mods, 'Class::Method::Modifiers::Fast'; -} - foreach my $class(@mods){ print "$class ", $class->VERSION, "\n"; } @@ -54,7 +50,7 @@ sub around{ { package MouseClass; use parent -norequire => qw(Base); - use Moose; + use Mouse; before f => sub{ $i++ }; around g => \&main::around;