line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package Finance::AMEX::Transaction::EPRAW::Trailer 0.005; |
2
|
|
|
|
|
|
|
|
3
|
9
|
|
|
9
|
|
50
|
use strict; |
|
9
|
|
|
|
|
16
|
|
|
9
|
|
|
|
|
251
|
|
4
|
9
|
|
|
9
|
|
40
|
use warnings; |
|
9
|
|
|
|
|
15
|
|
|
9
|
|
|
|
|
192
|
|
5
|
|
|
|
|
|
|
|
6
|
|
|
|
|
|
|
# ABSTRACT: Parse AMEX Reconciliation Files (EPRAW) Trailer Rows |
7
|
|
|
|
|
|
|
|
8
|
9
|
|
|
9
|
|
39
|
use base 'Finance::AMEX::Transaction::EPRAW::Base'; |
|
9
|
|
|
|
|
23
|
|
|
9
|
|
|
|
|
2487
|
|
9
|
|
|
|
|
|
|
|
10
|
|
|
|
|
|
|
sub field_map { |
11
|
|
|
|
|
|
|
return { |
12
|
48
|
|
|
48
|
1
|
291
|
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
|
12
|
|
|
12
|
1
|
2666
|
sub type {return 'TRAILER'} |
23
|
|
|
|
|
|
|
|
24
|
6
|
|
|
6
|
1
|
2606
|
sub DF_TRL_RECORD_TYPE {return $_[0]->_get_column('DF_TRL_RECORD_TYPE')} |
25
|
6
|
|
|
6
|
1
|
2262
|
sub DF_TRL_DATE {return $_[0]->_get_column('DF_TRL_DATE')} |
26
|
6
|
|
|
6
|
1
|
1387
|
sub DF_TRL_TIME {return $_[0]->_get_column('DF_TRL_TIME')} |
27
|
6
|
|
|
6
|
1
|
1746
|
sub DF_TRL_FILE_ID {return $_[0]->_get_column('DF_TRL_FILE_ID')} |
28
|
6
|
|
|
6
|
1
|
2714
|
sub DF_TRL_FILE_NAME {return $_[0]->_get_column('DF_TRL_FILE_NAME')} |
29
|
6
|
|
|
6
|
1
|
2612
|
sub DF_TRL_RECIPIENT_KEY {return $_[0]->_get_column('DF_TRL_RECIPIENT_KEY')} |
30
|
6
|
|
|
6
|
1
|
2631
|
sub DF_TRL_RECORD_COUNT {return $_[0]->_get_column('DF_TRL_RECORD_COUNT')} |
31
|
|
|
|
|
|
|
|
32
|
|
|
|
|
|
|
1; |
33
|
|
|
|
|
|
|
|
34
|
|
|
|
|
|
|
__END__ |