diff options
Diffstat (limited to 'lib/Reaction/Types')
-rw-r--r-- | lib/Reaction/Types/CreditCard.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Reaction/Types/CreditCard.pm b/lib/Reaction/Types/CreditCard.pm index ec7de56..81ddfcd 100644 --- 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; |