diff options
author | wreis <wreis@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7> | 2008-01-17 03:03:33 +0000 |
---|---|---|
committer | wreis <wreis@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7> | 2008-01-17 03:03:33 +0000 |
commit | 4e13fa5f98ee745d85e5ca0ad45050390f33f429 (patch) | |
tree | 3dcb79ffcaf89b583a37a5be608129965fa06b1b /lib/Reaction/Types | |
parent | 4d6b8127ea4576ed5c541ceec61b274b9dfeedfb (diff) | |
download | reaction-4e13fa5f98ee745d85e5ca0ad45050390f33f429.tar.gz reaction-4e13fa5f98ee745d85e5ca0ad45050390f33f429.zip |
fixed CreditCard type
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; |