File Coverage

blib/lib/Finance/AMEX/Transaction/EPPRC/Trailer.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


line stmt bran cond sub pod time code
1             package Finance::AMEX::Transaction::EPPRC::Trailer;
2             $Finance::AMEX::Transaction::EPPRC::Trailer::VERSION = '0.004';
3 8     8   53 use strict;
  8         20  
  8         368  
4 8     8   47 use warnings;
  8         18  
  8         223  
5              
6             # ABSTRACT: Parse AMEX Transaction/Invoice Level Reconciliation (EPPRC) Trailer Rows
7              
8 8     8   42 use base 'Finance::AMEX::Transaction::EPPRC::Base';
  8         19  
  8         2916  
9              
10             sub field_map {
11             return {
12 360     360 0 3215 DF_TRL_RECORD_TYPE => [1, 5],
13             DF_TRL_DATE => [6, 8],
14             DF_TRL_TIME => [14, 4],
15             DF_TRL_FILE_ID => [18, 6],
16             DF_TRL_FILE_NAME => [24, 20],
17             DF_TRL_RECIPIENT_KEY => [44, 40],
18             DF_TRL_RECORD_COUNT => [84, 7],
19             };
20             }
21              
22 90     90 1 25454 sub type {return 'TRAILER'}
23              
24 45     45 1 24627 sub DF_TRL_RECORD_TYPE {return $_[0]->_get_column('DF_TRL_RECORD_TYPE')}
25 45     45 1 14473 sub DF_TRL_DATE {return $_[0]->_get_column('DF_TRL_DATE')}
26 45     45 1 22431 sub DF_TRL_TIME {return $_[0]->_get_column('DF_TRL_TIME')}
27 45     45 1 23962 sub DF_TRL_FILE_ID {return $_[0]->_get_column('DF_TRL_FILE_ID')}
28 45     45 1 22786 sub DF_TRL_FILE_NAME {return $_[0]->_get_column('DF_TRL_FILE_NAME')}
29 45     45 1 23981 sub DF_TRL_RECIPIENT_KEY {return $_[0]->_get_column('DF_TRL_RECIPIENT_KEY')}
30 45     45 1 19409 sub DF_TRL_RECORD_COUNT {return $_[0]->_get_column('DF_TRL_RECORD_COUNT')}
31              
32             1;
33              
34             __END__