NAME

Data::Transpose::Validator::CreditCard - Validator for CC numbers

SYNOPSIS

From inside Data::Transpose::Validator

            

              
              
$dtv->prepare(
              cc_number => {
                            validator => {
                                          class => 'CreditCard',
                                          options => {
                                                      types => [ "visa card",
                                                                "mastercard",
                                                                "American Express card",
                                                                "Discover card" ],
                                                      country => 'DE',
                                                     },
                                         },
                            required => 1,
                           },
              cc_month => {
                           validator => {
                                         class => 'NumericRange',
                                         options => {
                                                     min => 1,
                                                     max => 12,
                                                    },
                                        },
                           required => 1,
                          },
              cc_year => {
                          validator => {
                                        class => 'NumericRange',
                                        options => {
                                                    min => 2013,
                                                    max => 2023,
                                                   },
                                       },
                          required => 1,
                         }
             );
my $form = {
            cc_number => ' 4111111111111111 ',
            cc_month => '12',
            cc_year => '2014',
           };
my $clean = $dtv->transpose($form);
ok($clean, "validation ok");
            
          

Or, as stand-alone module:

            

              
              
my $v = Data::Transpose::Validator::CreditCard->new(country => 'DE',
                                                    types => ["visa card",
                                                              "mastercard"]);
ok($v->is_valid("4111111111111111"));
ok(!$v->is_valid("4111111111111112"));
            
          

DESCRIPTION

This module wraps Business::CreditCard to validate a credit card number.

new(country => 'de', types => ['VISA card', 'MasterCard', ... ])

Constructor. The options as the following:

country

Two letters country code (for card type detection purposes). Defaults to "US" (as per Business::CreditCard defaults).

types

List of accepted CC type. The string is case insensitive, but must match the following recognized types. It's unclear how much reliable is this, so use with caution. Recognized types:

            

              
              
American Express card
BankCard
China Union Pay
Discover card
Isracard
JCB
Laser
MasterCard
Solo
Switch
VISA card
            
          

is_valid

Check with ref if the argument is a valid credit card and return it on success (without whitespace).

test_cc_numbers

For testing (and validation) purposes, this method returns an hashref with the test credit card numbers for each provider (as listed by Business::CreditCard::cardtype()).