From: Stevan Little <stevan.little@iinteractive.com>
Date: Thu, 2 Nov 2006 13:50:42 +0000 (+0000)
Subject: AHHHHHHHHHHHH
X-Git-Tag: 0_15^0
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=03aac1fa4eb64aca574e5ec3b8f55c4f0327399c;p=gitmo%2FMoose.git

AHHHHHHHHHHHH
---

diff --git a/benchmarks/type_constraints.pl b/benchmarks/type_constraints.pl
index dcc15cd..1c53e6e 100644
--- 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
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