File Coverage

blib/lib/Finance/AMEX/Transaction/EPRAW/Detail/Other.pm
Criterion Covered Total %
statement 31 31 100.0
branch n/a
condition n/a
subroutine 25 25 100.0
pod 22 22 100.0
total 78 78 100.0


line stmt bran cond sub pod time code
1             package Finance::AMEX::Transaction::EPRAW::Detail::Other 0.005;
2              
3 9     9   53 use strict;
  9         18  
  9         318  
4 9     9   46 use warnings;
  9         15  
  9         199  
5              
6             # ABSTRACT: Parse AMEX Reconciliation Files (EPRAW) Chargeback Detail Rows
7              
8 9     9   40 use base 'Finance::AMEX::Transaction::EPRAW::Base';
  9         18  
  9         5063  
9              
10             sub field_map {
11             return {
12 42     42 1 498 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             SERVICE_AGENT_MERCHANT_ID => [321, 15],
32             };
33             }
34              
35 4     4 1 939 sub type {return 'OTHER_DETAIL'}
36              
37 2     2 1 858 sub AMEX_PAYEE_NUMBER {return $_[0]->_get_column('AMEX_PAYEE_NUMBER')}
38 2     2 1 859 sub AMEX_SE_NUMBER {return $_[0]->_get_column('AMEX_SE_NUMBER')}
39 2     2 1 858 sub SE_UNIT_NUMBER {return $_[0]->_get_column('SE_UNIT_NUMBER')}
40 2     2 1 863 sub PAYMENT_YEAR {return $_[0]->_get_column('PAYMENT_YEAR')}
41 2     2 1 916 sub PAYMENT_NUMBER {return $_[0]->_get_column('PAYMENT_NUMBER')}
42 2     2 1 886 sub PAYMENT_NUMBER_DATE {return $_[0]->_get_column('PAYMENT_NUMBER_DATE')}
43 2     2 1 456 sub PAYMENT_NUMBER_TYPE {return $_[0]->_get_column('PAYMENT_NUMBER_TYPE')}
44 2     2 1 878 sub PAYMENT_NUMBER_NUMBER {return $_[0]->_get_column('PAYMENT_NUMBER_NUMBER')}
45 2     2 1 875 sub RECORD_TYPE {return $_[0]->_get_column('RECORD_TYPE')}
46 2     2 1 937 sub DETAIL_RECORD_TYPE {return $_[0]->_get_column('DETAIL_RECORD_TYPE')}
47 2     2 1 911 sub AMEX_PROCESS_DATE {return $_[0]->_get_column('AMEX_PROCESS_DATE')}
48 2     2 1 859 sub ASSET_BILLING_AMOUNT {return $_[0]->_get_column('ASSET_BILLING_AMOUNT')}
49 2     2 1 877 sub ASSET_BILLING_DESCRIPTION {return $_[0]->_get_column('ASSET_BILLING_DESCRIPTION')}
50 2     2 1 862 sub TAKE_ONE_COMMISSION_AMOUNT {return $_[0]->_get_column('TAKE_ONE_COMMISSION_AMOUNT')}
51 2     2 1 444 sub TAKE_ONE_DESCRIPTION {return $_[0]->_get_column('TAKE_ONE_DESCRIPTION')}
52 2     2 1 896 sub OTHER_FEE_AMOUNT {return $_[0]->_get_column('OTHER_FEE_AMOUNT')}
53 2     2 1 875 sub OTHER_FEE_DESCRIPTION {return $_[0]->_get_column('OTHER_FEE_DESCRIPTION')}
54 2     2 1 861 sub ASSET_BILLING_TAX {return $_[0]->_get_column('ASSET_BILLING_TAX')}
55 2     2 1 876 sub PAY_IN_GROSS_INDICATOR {return $_[0]->_get_column('PAY_IN_GROSS_INDICATOR')}
56 2     2 1 879 sub SERVICE_AGENT_MERCHANT_ID {return $_[0]->_get_column('SERVICE_AGENT_MERCHANT_ID')}
57              
58             1;
59              
60             __END__