File Coverage

blib/lib/Finance/AMEX/Transaction/EPTRN/Detail/Other.pm
Criterion Covered Total %
statement 9 30 30.0
branch n/a
condition n/a
subroutine 3 24 12.5
pod 20 21 95.2
total 32 75 42.6


line stmt bran cond sub pod time code
1             package Finance::AMEX::Transaction::EPTRN::Detail::Other;
2             $Finance::AMEX::Transaction::EPTRN::Detail::Other::VERSION = '0.003';
3 7     7   53 use strict;
  7         17  
  7         186  
4 7     7   34 use warnings;
  7         15  
  7         173  
5              
6             # ABSTRACT: Parse AMEX Transaction/Invoice Level Reconciliation (EPTRN) Other Fees and Revenues Detail Rows
7              
8 7     7   34 use base 'Finance::AMEX::Transaction::EPTRN::Base';
  7         13  
  7         4068  
9              
10             sub field_map {
11             return {
12              
13 0     0 0   AMEX_PAYEE_NUMBER => [1, 10],
14             AMEX_SE_NUMBER => [11, 10],
15             SE_UNIT_NUMBER => [21, 10],
16             PAYMENT_YEAR => [31, 4],
17             PAYMENT_NUMBER => [35, 8],
18             PAYMENT_NUMBER_DATE => [35, 3],
19             PAYMENT_NUMBER_TYPE => [38, 1],
20             PAYMENT_NUMBER_NUMBER => [39, 4],
21             RECORD_TYPE => [43, 1],
22             DETAIL_RECORD_TYPE => [44, 2],
23             AMEX_PROCESS_DATE => [46, 7],
24             ASSET_BILLING_AMOUNT => [53, 9],
25             ASSET_BILLING_DESCRIPTION => [62, 65],
26             TAKE_ONE_COMMISSION_AMOUNT => [127, 9],
27             TAKE_ONE_DESCRIPTION => [136, 80],
28             OTHER_FEE_AMOUNT => [216, 9],
29             OTHER_FEE_DESCRIPTION => [225, 80],
30             ASSET_BILLING_TAX => [305, 9],
31             PAY_IN_GROSS_INDICATOR => [314, 1],
32             };
33             }
34              
35 0     0 1   sub type {return 'OTHER_DETAIL'}
36              
37 0     0 1   sub AMEX_PAYEE_NUMBER {return $_[0]->_get_column('AMEX_PAYEE_NUMBER')}
38 0     0 1   sub AMEX_SE_NUMBER {return $_[0]->_get_column('AMEX_SE_NUMBER')}
39 0     0 1   sub SE_UNIT_NUMBER {return $_[0]->_get_column('SE_UNIT_NUMBER')}
40 0     0 1   sub PAYMENT_YEAR {return $_[0]->_get_column('PAYMENT_YEAR')}
41 0     0 1   sub PAYMENT_NUMBER {return $_[0]->_get_column('PAYMENT_NUMBER')}
42 0     0 1   sub PAYMENT_NUMBER_DATE {return $_[0]->_get_column('PAYMENT_NUMBER_DATE')}
43 0     0 1   sub PAYMENT_NUMBER_TYPE {return $_[0]->_get_column('PAYMENT_NUMBER_TYPE')}
44 0     0 1   sub PAYMENT_NUMBER_NUMBER {return $_[0]->_get_column('PAYMENT_NUMBER_NUMBER')}
45 0     0 1   sub RECORD_TYPE {return $_[0]->_get_column('RECORD_TYPE')}
46 0     0 1   sub DETAIL_RECORD_TYPE {return $_[0]->_get_column('DETAIL_RECORD_TYPE')}
47 0     0 1   sub AMEX_PROCESS_DATE {return $_[0]->_get_column('AMEX_PROCESS_DATE')}
48 0     0 1   sub ASSET_BILLING_AMOUNT {return $_[0]->_get_column('ASSET_BILLING_AMOUNT')}
49 0     0 1   sub ASSET_BILLING_DESCRIPTION {return $_[0]->_get_column('ASSET_BILLING_DESCRIPTION')}
50 0     0 1   sub TAKE_ONE_COMMISSION_AMOUNT {return $_[0]->_get_column('TAKE_ONE_COMMISSION_AMOUNT')}
51 0     0 1   sub TAKE_ONE_DESCRIPTION {return $_[0]->_get_column('TAKE_ONE_DESCRIPTION')}
52 0     0 1   sub OTHER_FEE_AMOUNT {return $_[0]->_get_column('OTHER_FEE_AMOUNT')}
53 0     0 1   sub OTHER_FEE_DESCRIPTION {return $_[0]->_get_column('OTHER_FEE_DESCRIPTION')}
54 0     0 1   sub ASSET_BILLING_TAX {return $_[0]->_get_column('ASSET_BILLING_TAX')}
55 0     0 1   sub PAY_IN_GROSS_INDICATOR {return $_[0]->_get_column('PAY_IN_GROSS_INDICATOR')}
56              
57             1;
58              
59             __END__