File Coverage

blib/lib/Finance/AMEX/Transaction/CBNOT/Trailer.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch			n/a
condition			n/a
subroutine	19	19	100.0
pod	16	16	100.0
total	60	60	100.0

package Finance::AMEX::Transaction::CBNOT::Trailer 0.005;

use strict;
use warnings;

# ABSTRACT: Parse AMEX Chargeback Notification Files (CBNOT) Trailer Rows

use base 'Finance::AMEX::Transaction::CBNOT::Base';

sub field_map {
  return {
    REC_TYPE                => [1,   1],
    AMEX_APPL_AREA          => [2,   100],
    APPLICATION_SYSTEM_CODE => [2,   2],
    FILE_TYPE_CODE          => [4,   2],
    FILE_CREATION_DATE      => [6,   8],
    FILE_SEQUENCE_NUMBER    => [20,  6],
    JULIAN_DATE             => [22,  2],
    AMEX_TOTAL_RECORDS      => [27,  5],
    CONFIRM_RECORD_COUNT    => [36,  9],
    AMEX_JOB_NUMBER         => [45,  9],
    SAID                    => [102, 6],
    DATATYPE                => [108, 5],
    CCYYDDD                 => [113, 7],
    HHMMSS                  => [120, 7],
    STARS_FILESEQ_NB        => [127, 3],
  };
}

sub type {return 'TRAILER'}

sub AMEX_APPL_AREA          {return $_[0]->_get_column('AMEX_APPL_AREA')}
sub APPLICATION_SYSTEM_CODE {return $_[0]->_get_column('APPLICATION_SYSTEM_CODE')}
sub FILE_TYPE_CODE          {return $_[0]->_get_column('FILE_TYPE_CODE')}
sub FILE_CREATION_DATE      {return $_[0]->_get_column('FILE_CREATION_DATE')}
sub FILE_SEQUENCE_NUMBER    {return $_[0]->_get_column('FILE_SEQUENCE_NUMBER')}
sub JULIAN_DATE             {return $_[0]->_get_column('JULIAN_DATE')}
sub AMEX_TOTAL_RECORDS      {return $_[0]->_get_column('AMEX_TOTAL_RECORDS')}
sub CONFIRM_RECORD_COUNT    {return $_[0]->_get_column('CONFIRM_RECORD_COUNT')}
sub AMEX_JOB_NUMBER         {return $_[0]->_get_column('AMEX_JOB_NUMBER')}
sub SAID                    {return $_[0]->_get_column('SAID')}
sub DATATYPE                {return $_[0]->_get_column('DATATYPE')}
sub CCYYDDD                 {return $_[0]->_get_column('CCYYDDD')}

# perl does not allow 0 at the beginning of a sub name,
# so we strip off the filler character in both the subname
# and the return value
sub HHMMSS           {return substr($_[0]->_get_column('HHMMSS'), 1, 6)}
sub STARS_FILESEQ_NB {return $_[0]->_get_column('STARS_FILESEQ_NB')}

1;

__END__