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__ |