fixed CreditCard type
wreis [Thu, 17 Jan 2008 03:03:33 +0000 (03:03 +0000)]
lib/Reaction/Types/CreditCard.pm

index ec7de56..81ddfcd 100644 (file)
@@ -4,11 +4,11 @@ use MooseX::Types
     -declare => [qw/CardNumber/];
 
 use Reaction::Types::Core 'NonEmptySimpleStr';
-use Business::CreditCard;
+use Business::CreditCard ();
 
 subtype 'CardNumber'
     => as 'NonEmptySimpleStr'
-    => where   { Business::CreditCard->validate($_) }
+    => where   { Business::CreditCard::validate($_) }
     => message {"Must be a valid card number"};
 
 1;