X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=benchmarks%2Ftype_constraints.pl;h=e9b29f869a2c763a343ae60f193dc6bb676de562;hb=d03bd989b97597428b460d7f9a021e2931893fa0;hp=8af49ef7f380ad1f9a49d33e7bcabe35bb3ce17d;hpb=f6bee6fe1d579dc3d2ed2952cce9a1556040c8e5;p=gitmo%2FMoose.git diff --git a/benchmarks/type_constraints.pl b/benchmarks/type_constraints.pl index 8af49ef..e9b29f8 100644 --- a/benchmarks/type_constraints.pl +++ b/benchmarks/type_constraints.pl @@ -7,8 +7,8 @@ use Benchmark qw[cmpthese]; =pod -This benchmark compares the overhead of a -auto-created type constraint vs. none at +This benchmark compares the overhead of a +auto-created type constraint vs. none at all vs. a custom-created type. =cut @@ -17,16 +17,16 @@ all vs. a custom-created type. package Foo; use Moose; use Moose::Util::TypeConstraints; - + has 'baz' => (is => 'rw'); has 'bar' => (is => 'rw', isa => 'Foo'); } { package Bar; - + sub new { bless {} => __PACKAGE__ } - sub bar { + sub bar { my $self = shift; $self->{bar} = shift if @_; $self->{bar}; @@ -36,7 +36,7 @@ all vs. a custom-created type. my $foo = Foo->new; my $bar = Bar->new; -cmpthese(200_000, +cmpthese(200_000, { 'hand coded' => sub { $bar->bar($bar); @@ -45,8 +45,8 @@ cmpthese(200_000, $foo->baz($foo); }, 'w_constraint' => sub { - $foo->bar($foo); - }, + $foo->bar($foo); + }, } );