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 9 9 100.0
total 39 39 100.0


line stmt bran cond sub pod time code
1             package Finance::AMEX::Transaction::GRRCN::Header 0.005;
2              
3 9     9   51 use strict;
  9         16  
  9         233  
4 9     9   42 use warnings;
  9         16  
  9         205  
5              
6             # ABSTRACT: Parse AMEX Global Reconciliation (GRRCN) Header Rows
7              
8 9     9   40 use base 'Finance::AMEX::Transaction::GRRCN::Base';
  9         18  
  9         3537  
9              
10             sub field_map {
11             return [
12 10     10 1 124 {RECORD_TYPE => [1, 10]},
13             {FILE_CREATION_DATE => [11, 8]},
14             {FILE_CREATION_TIME => [19, 6]},
15             {SEQUENTIAL_NUMBER => [25, 10]},
16             {FILE_ID => [35, 10]},
17             {FILE_NAME => [45, 20]},
18             {FILE_VERSION_NUMBER => [65, 4]},
19             {FILLER1 => [69, 732]},
20             ];
21             }
22              
23 4     4 1 1031 sub type {return 'HEADER'}
24              
25 2     2 1 42 sub RECORD_TYPE {return $_[0]->_get_column('RECORD_TYPE')}
26 2     2 1 1562 sub FILE_CREATION_DATE {return $_[0]->_get_column('FILE_CREATION_DATE')}
27 2     2 1 1010 sub FILE_CREATION_TIME {return $_[0]->_get_column('FILE_CREATION_TIME')}
28 2     2 1 942 sub SEQUENTIAL_NUMBER {return $_[0]->_get_column('SEQUENTIAL_NUMBER')}
29 2     2 1 932 sub FILE_ID {return $_[0]->_get_column('FILE_ID')}
30 2     2 1 936 sub FILE_NAME {return $_[0]->_get_column('FILE_NAME')}
31 10     10 1 968 sub FILE_VERSION_NUMBER {return $_[0]->_get_column('FILE_VERSION_NUMBER')}
32              
33             1;
34              
35             __END__