X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=benchmarks%2Fmethod_modifiers.pl;h=16f1c5efb4997353830d7e73706f6cc27c332251;hb=bab3604597924ecf4219feb2d04ab906e4b887b9;hp=8193298ee8567fac421c4968093c90e9e9ef5ba5;hpb=b15a40687b436ec547ddac78ab9dd335786e3c2c;p=gitmo%2FMoose.git diff --git a/benchmarks/method_modifiers.pl b/benchmarks/method_modifiers.pl index 8193298..16f1c5e 100755 --- a/benchmarks/method_modifiers.pl +++ b/benchmarks/method_modifiers.pl @@ -17,7 +17,7 @@ package CMMChild::Before; use Class::Method::Modifiers; use base 'PlainParent'; - + before method => sub { "B" }; } { @@ -32,7 +32,7 @@ package CMMChild::Around; use Class::Method::Modifiers; use base 'PlainParent'; - + around method => sub { shift->() . "A" }; } { @@ -47,7 +47,7 @@ package CMMChild::AllThree; use Class::Method::Modifiers; use base 'PlainParent'; - + before method => sub { "B" }; around method => sub { shift->() . "A" }; after method => sub { "Z" };