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	15	16	93.7
total	59	60	98.3

package Finance::AMEX::Transaction::CBNOT::Trailer;
$Finance::AMEX::Transaction::CBNOT::Trailer::VERSION = '0.003';
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 of 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__