Fix docs. The phrases "Fewer than 1%" and "over 96%" are very confusing, so I removed...

[gitmo/Mouse.git] / benchmarks / subtype.pl

diff --git a/benchmarks/subtype.pl b/benchmarks/subtype.pl
index 5c53508..1539950 100755 (executable)
--- 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;\r
+        use $klass;
         use ${klass}::Util::TypeConstraints;
-\r
-        subtype 'NaturalNumber', as 'Int', where { \$_ > 0 };\r
-\r
+
+        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";