AHHHHHHHHHHHH

diff --git a/benchmarks/type_constraints.pl b/benchmarks/type_constraints.pl
index dcc15cd..1c53e6e 100644 (file)
--- a/benchmarks/type_constraints.pl
+++ b/benchmarks/type_constraints.pl
@@ -20,7 +20,7 @@ all vs. a custom-created type.
     
     has 'baz' => (is => 'rw');
     has 'bar' => (is => 'rw', isa => 'Foo');
-    has 'boo' => (is => 'rw', isa => type 'CustomFoo' => where { blessed($_) && $_->isa('Foo') });
+    #has 'boo' => (is => 'rw', isa => type 'CustomFoo' => where { blessed($_) && $_->isa('Foo') });
 }
 
 my $foo = Foo->new;
@@ -33,9 +33,9 @@ cmpthese(200_000,
         'w_constraint' => sub {
             $foo->bar($foo);            
         },
-        'w_custom_constraint' => sub {
-            $foo->boo($foo);            
-        },        
+        #'w_custom_constraint' => sub {
+        #    $foo->boo($foo);            
+        #},        
     }
 );
 

diff --git a/t/300_immutable_moose.t b/t/300_immutable_moose.t
new file mode 100644 (file)
index 0000000..4f30812
--- /dev/null
+++ b/t/300_immutable_moose.t
@@ -0,0 +1,6 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Test::More no_plan => 1;
\ No newline at end of file