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 21 21 100.0
total 33 75 44.0


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