File Coverage

blib/lib/Finance/AMEX/Transaction/EPRAW/Header.pm
Criterion Covered Total %
statement 16 16 100.0
branch n/a
condition n/a
subroutine 10 10 100.0
pod 6 7 85.7
total 32 33 96.9


line stmt bran cond sub pod time code
1             package Finance::AMEX::Transaction::EPRAW::Header;
2             $Finance::AMEX::Transaction::EPRAW::Header::VERSION = '0.003';
3 7     7   45 use strict;
  7         13  
  7         213  
4 7     7   35 use warnings;
  7         13  
  7         190  
5              
6             # ABSTRACT: Parse AMEX Reconciliation Files (EPRAW) Header Rows
7              
8 7     7   35 use base 'Finance::AMEX::Transaction::EPRAW::Base';
  7         11  
  7         2955  
9              
10             sub field_map {
11             return {
12 36     36 0 275 DF_HDR_RECORD_TYPE => [1, 5],
13             DF_HDR_DATE => [6, 8],
14             DF_HDR_TIME => [14, 4],
15             DF_HDR_FILE_ID => [18, 6],
16             DF_HDR_FILE_NAME => [24, 20],
17             };
18             }
19              
20 12     12 1 3230 sub type {return 'HEADER'}
21              
22 6     6 1 2839 sub DF_HDR_RECORD_TYPE {return $_[0]->_get_column('DF_HDR_RECORD_TYPE')}
23 6     6 1 14635 sub DF_HDR_DATE {return $_[0]->_get_column('DF_HDR_DATE')}
24 6     6 1 2684 sub DF_HDR_TIME {return $_[0]->_get_column('DF_HDR_TIME')}
25 6     6 1 2179 sub DF_HDR_FILE_ID {return $_[0]->_get_column('DF_HDR_FILE_ID')}
26 6     6 1 2839 sub DF_HDR_FILE_NAME {return $_[0]->_get_column('DF_HDR_FILE_NAME')}
27              
28             1;
29              
30             __END__