File Coverage

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

Criterion	Covered	Total	%
statement	18	18	100.0
branch			n/a
condition			n/a
subroutine	12	12	100.0
pod	8	9	88.8
total	38	39	97.4

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

# ABSTRACT: Parse AMEX Global Reconciliation (GRRCN) Header Rows

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

sub field_map {
  return {
    RECORD_TYPE         => [1, 10],
    FILE_CREATION_DATE  => [11, 8],
    FILE_CREATION_TIME  => [19, 6],
    SEQUENTIAL_NUMBER   => [25, 10],
    FILE_ID             => [35, 10],
    FILE_NAME           => [45, 20],
    FILE_VERSION_NUMBER => [65, 4],
  };
}

sub type {return 'HEADER'}

sub RECORD_TYPE         {return $_[0]->_get_column('RECORD_TYPE')}
sub FILE_CREATION_DATE  {return $_[0]->_get_column('FILE_CREATION_DATE')}
sub FILE_CREATION_TIME  {return $_[0]->_get_column('FILE_CREATION_TIME')}
sub SEQUENTIAL_NUMBER   {return $_[0]->_get_column('SEQUENTIAL_NUMBER')}
sub FILE_ID             {return $_[0]->_get_column('FILE_ID')}
sub FILE_NAME           {return $_[0]->_get_column('FILE_NAME')}
sub FILE_VERSION_NUMBER {return $_[0]->_get_column('FILE_VERSION_NUMBER')}

1;

__END__