File Coverage

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

Criterion	Covered	Total	%
statement	19	19	100.0
branch			n/a
condition			n/a
subroutine	13	13	100.0
pod	8	10	80.0
total	40	42	95.2

package Finance::AMEX::Transaction::CBNOT::Header;
$Finance::AMEX::Transaction::CBNOT::Header::VERSION = '0.004';
use strict;
use warnings;

# ABSTRACT: Parse AMEX Chargeback Notification Files (CBNOT) Header 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, 3],
    FILE_CREATION_DATE      => [6, 8],

    SAID                    => [102, 6],
    DATATYPE                => [108, 5],
    CCYYDDD                 => [113, 7],
    HHMMSS                  => [120, 7],
  };
}

sub type {return 'HEADER'}

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 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)}

1;

__END__