X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=benchmarks%2Fsubtype.pl;h=1539950285f8fe84c5282addf50d3db852a101e1;hb=d06d926635763fa5687c429b5ad39938c564fbed;hp=5c53508d2b698ee40cf861a71ff19c9b2ad25b7a;hpb=d03295d720223421e5878677fd4cb66b62f92a67;p=gitmo%2FMouse.git

diff --git a/benchmarks/subtype.pl b/benchmarks/subtype.pl
index 5c53508..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',
@@ -21,11 +21,11 @@ for my $klass (qw/Moose Mouse/) {
     die $@ if $@;
 }
 
-use Data::Dumper;
-$Data::Dumper::Deparse = 1;
-$Data::Dumper::Indent  = 1;
-print Mouse::Util::TypeConstraints::find_type_constraint('NaturalNumber')->dump(3);
-print Moose::Util::TypeConstraints::find_type_constraint('NaturalNumber')->dump(3);
+#use Data::Dumper;
+#$Data::Dumper::Deparse = 1;
+#$Data::Dumper::Indent  = 1;
+#print Mouse::Util::TypeConstraints::find_type_constraint('NaturalNumber')->dump(3);
+#print Moose::Util::TypeConstraints::find_type_constraint('NaturalNumber')->dump(3);
 
 print "Class::MOP: $Class::MOP::VERSION\n";
 print "Moose:      $Moose::VERSION\n";