X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=benchmarks%2Fcoercion.pl;h=ce1643d8a9c9be5fd7e0ecbff4e2bffd674f62f9;hb=467c4815ec15a74e6aa4970b6d69bcb4a6fa0b7f;hp=a473303d18c4d8b6c95adc4429539d714b7d2961;hpb=d03295d720223421e5878677fd4cb66b62f92a67;p=gitmo%2FMouse.git diff --git a/benchmarks/coercion.pl b/benchmarks/coercion.pl index a473303..ce1643d 100755 --- a/benchmarks/coercion.pl +++ b/benchmarks/coercion.pl @@ -7,15 +7,15 @@ 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 }; coerce 'NaturalNumber', from 'Str', via { 42 }, - ; - + ; + has n => ( is => 'rw', isa => 'NaturalNumber',