File Coverage

blib/lib/Card/Magnetic.pm

Criterion	Covered	Total	%
statement	47	47	100.0
branch	13	20	65.0
condition	3	3	100.0
subroutine	9	9	100.0
pod	6	6	100.0
total	78	85	91.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,
            };
        }
        $self->{ tracks }[0] = $track1;
    }
    #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,
            };
        }
        $self->{ tracks }[1] = $track2;
    }
    #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},
           };
        }
        $self->{ tracks }[2] = $track3;
    }
}

sub track1 {
    my ( $self ) = @_;
    return defined $self->{ tracks }[ 0 ]? $self->{ tracks }[ 0 ] : undef;
}

sub track2 {
    my ( $self ) = @_;
    return defined $self->{ tracks }[ 1 ]? $self->{ tracks }[ 1 ] : undef;
}

sub track3 {
    my ( $self ) = @_;
    return defined $self->{ tracks }[ 2 ]? $self->{ tracks }[ 2 ] : undef;
}

1;

__END__