X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=benchmarks%2Fsubtype.pl;h=1539950285f8fe84c5282addf50d3db852a101e1;hp=90a0cf3f42d4971abd728ac59eebd6c66546be0c;hb=ca8e67d622c1a14bee4933ad64b1e465c5d63766;hpb=000bf66b6556949556a3499b970fd33ac83b3d4d diff --git a/benchmarks/subtype.pl b/benchmarks/subtype.pl index 90a0cf3..1539950 100755 --- a/benchmarks/subtype.pl +++ b/benchmarks/subtype.pl @@ -6,11 +6,11 @@ use Benchmark qw/cmpthese/; for my $klass (qw/Moose Mouse/) { eval qq{ package ${klass}One; - use $klass; + use $klass; use ${klass}::Util::TypeConstraints; - - subtype 'NaturalNumber', as 'Int', where { \$_ > 0 }; - + + subtype 'NaturalNumber', as 'Int', where { \$_ > 0 }; + has n => ( is => 'rw', isa => 'NaturalNumber',