From: John Napiorkowski <johnn@John-Napiorkowski-MacBook-Pro.local>
Date: Thu, 24 Jun 2010 20:44:17 +0000 (-0400)
Subject: maybe a real fix for coercions?
X-Git-Tag: 0.02~2
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=94aff721074fb1c94b821d613e611f2a31a215d6;p=gitmo%2FMooseX-Dependent.git

maybe a real fix for coercions?
---

diff --git a/t/05-pod-examples.t b/t/05-pod-examples.t
index 0fd80ec..e98bd45 100644
--- a/t/05-pod-examples.t
+++ b/t/05-pod-examples.t
@@ -40,7 +40,7 @@ use Test::More;
     Test::More::ok $varchar_ten->check( 'X' x 9 );
     Test::More::ok ! $varchar_ten->check( 'X' x 12 );
 
-    has varchar_five => (isa=>$varchar_five, is=>'ro', coerce=>1);
+    has varchar_five => (isa=>Varchar[5], is=>'ro', coerce=>1);
     has varchar_ten => (isa=>Varchar[10], is=>'ro');
   
     my $object1 = __PACKAGE__->new(