File Coverage

blib/lib/FormValidator/Simple/Plugin/CreditCard.pm

Criterion	Covered	Total	%
statement	20	21	95.2
branch	7	8	87.5
condition	2	3	66.6
subroutine	5	5	100.0
pod	0	1	0.0
total	34	38	89.4

package FormValidator::Simple::Plugin::CreditCard;
use strict;
use FormValidator::Simple::Exception;
use FormValidator::Simple::Constants;
require Business::CreditCard;

our $VERSION = '0.03';

my $__creditcard_types = {
    VISA     => 'VISA card',
    MASTER   => 'MasterCard',
    DISCOVER => 'Discovoer card',
    AMEX     => 'American Express card',
    DINERS   => "Diner's Club/Carte Blanche",
    ENROUTE  => 'enRoute',
    JCB      => 'JCB',
    BANKCARD => 'BankCard',
    SWITCH   => 'Switch',
    SOLO     => 'Solo',
};

sub __creditcard_get_type {
    my ($self, $abbreviation) = @_;
    if ( exists $__creditcard_types->{$abbreviation} ) {
        return $__creditcard_types->{$abbreviation};
    }
    else {
        FormValidator::Simple::Exception->throw(
            qq/Unknown Card Type "$abbreviation"./
        );
    }
}

sub CREDIT_CARD {
    my ($self, $params, $args) = @_;
    my $data = $params->[0];
    if ($args && scalar(@$args) > 0) {
        foreach my $type (@$args) {
            if ($self->__creditcard_get_type($type) eq Business::CreditCard::cardtype($data) ) {
                return TRUE;
            }
        }
        return FALSE;
    }
    else {
        return Business::CreditCard::validate($data) ? TRUE : FALSE;
    }
}

1;
__END__