fixed CreditCard type

diff --git a/lib/Reaction/Types/CreditCard.pm b/lib/Reaction/Types/CreditCard.pm
index ec7de56..81ddfcd 100644 (file)
--- a/lib/Reaction/Types/CreditCard.pm
+++ b/lib/Reaction/Types/CreditCard.pm
@@ -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;