File Coverage

blib/lib/Card/Magnetic.pm

Criterion	Covered	Total	%
statement	38	38	100.0
branch	10	14	71.4
condition	3	3	100.0
subroutine	6	6	100.0
pod	3	3	100.0
total	60	64	93.7

package Card::Magnetic;

use strict;
use warnings;

# ABSTRACT: Magnetic Stripe parser


sub new {
    my ( $class ) = @_;

    my $self = { stripe => undef };

    return bless $self, $class;
}

sub stripe{
    my ( $self , $stripe ) = @_;

    return $self->{ stripe } if ! $stripe;

    $self->{ stripe } = $stripe;
}

sub parse{
    my ( $self ) = @_;

    my $stripe = $self->{ stripe };

    #track1
    if ( $stripe =~ /^%[\w|\^]+\?\n/ ){
        my $track1 = $&;
        $stripe = $` . $';
        $self->{ track1 }{ track } = $track1;
        chomp $track1;
        if( $track1 =~ /^%(\w)(\d+)\^(\w+)\^(\d{4})(\d{3})(\d{5})(\d{3})/ ) {
            $self->{ track1 } = {
                FORMAT_CODE     => $1,
                PAN             => $2,
                NAME            => $3,
                EXPIRATION_DATE => $4,
                SERVICE_CODE    => $5,
                PVV             => $6,
                CVV             => $7,
            };
        }
    }
    #track2
    if( $stripe =~ /\;[\w\^]+\?\n/ and ( length $& < 39 ) ){  # stripe...
        my $track2 =  $&;
        $stripe = $` . $';
        $self->{ track2 }{ track } = $track2;
        chomp $track2;
        if( $track2 =~ /(\d+)\^(\d{4})(\d{3})(\d{5})(\d{3})/ ) {
            $self->{ track2 } = {
                PAN             => $1,
                EXPIRATION_DATE => $2,
                SERVICE_CODE    => $3,
                PVV             => $4,
                CVV             => $5,
            };
        }
    }
    #track3
    if( $stripe =~ /\;[\w\^]+\?\n/ ){
        my $track3 = $&;
        $stripe = $` . $';
        $self->{ track3 }{ track } = $track3;
        chomp $track3;
        if( $track3 =~ /
            (?\d{2})
            (?\d+)\^
            (?\d{3})
            (?\d{3})
            (?\d{4})
            (?\d{4})
            (?\d{4})
            (?\d{2})
            (?\d{1})
            (?\d{6})
            (?\d{1})
            (?\d{2})
            (?\d{2})
            (?\d{2})
            (?\d{4})
            (?\d{1})
            (?\d{9})
            (?\d{1})
            (?\d{6})
            /x){
            $self->{ track3 } = {
                FORMAT_CODE     => $+{fc},
                PAN             => $+{pan},
                COUNTRY_CODE    => $+{cc},
                CURRENCY_CODE   => $+{cur},
                AMOUNTAUTH      => $+{amountauth},
                AMOUNTREMAINING => $+{amountremaining},
                CYCLE_BEGIN     => $+{cyclebegin},
                CYCLE_LENGHT    => $+{cyclelenght},
                RETRY_COUNT     => $+{retrycount},
                PINCP           => $+{pincp},
                INTERCHANGE     => $+{interchange},
                PANSR           => $+{pansr},
                SAN1            => $+{san1},
                SAN2            => $+{san2},
                EXPIRATION_DATE => $+{expirationdate},
                CARD_SEQUENCE   => $+{cardsequence},
                CARD_SECURITY   => $+{cardsecurity},
                RELAY_MARKER    => $+{relaymarker},
                CRYPTO_CHECK    => $+{cryptocheck},
           };
        }
    }
}

1;

__END__