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 21 22 95.4
total 77 78 98.7


line stmt bran cond sub pod time code
1             package Finance::AMEX::Transaction::EPRAW::Detail::Other;
2             $Finance::AMEX::Transaction::EPRAW::Detail::Other::VERSION = '0.003';
3 7     7   44 use strict;
  7         16  
  7         215  
4 7     7   36 use warnings;
  7         16  
  7         180  
5              
6             # ABSTRACT: Parse AMEX Reconciliation Files (EPRAW) Chargeback Detail Rows
7              
8 7     7   34 use base 'Finance::AMEX::Transaction::EPRAW::Base';
  7         16  
  7         4286  
9              
10             sub field_map {
11             return {
12              
13 42     42 0 655 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              
19             PAYMENT_NUMBER_DATE => [35, 3],
20             PAYMENT_NUMBER_TYPE => [38, 1],
21             PAYMENT_NUMBER_NUMBER => [39, 4],
22              
23             RECORD_TYPE => [43, 1],
24             DETAIL_RECORD_TYPE => [44, 2],
25             AMEX_PROCESS_DATE => [46, 7],
26             ASSET_BILLING_AMOUNT => [53, 9],
27             ASSET_BILLING_DESCRIPTION => [62, 65],
28             TAKE_ONE_COMMISSION_AMOUNT => [127, 9],
29             TAKE_ONE_DESCRIPTION => [136, 80],
30             OTHER_FEE_AMOUNT => [216, 9],
31             OTHER_FEE_DESCRIPTION => [225, 80],
32             ASSET_BILLING_TAX => [305, 9],
33             PAY_IN_GROSS_INDICATOR => [314, 1],
34              
35             SERVICE_AGENT_MERCHANT_ID => [321, 15],
36             };
37             }
38              
39 4     4 1 1147 sub type {return 'OTHER_DETAIL'}
40              
41 2     2 1 1110 sub AMEX_PAYEE_NUMBER {return $_[0]->_get_column('AMEX_PAYEE_NUMBER')}
42 2     2 1 1111 sub AMEX_SE_NUMBER {return $_[0]->_get_column('AMEX_SE_NUMBER')}
43 2     2 1 1077 sub SE_UNIT_NUMBER {return $_[0]->_get_column('SE_UNIT_NUMBER')}
44 2     2 1 1075 sub PAYMENT_YEAR {return $_[0]->_get_column('PAYMENT_YEAR')}
45 2     2 1 1064 sub PAYMENT_NUMBER {return $_[0]->_get_column('PAYMENT_NUMBER')}
46 2     2 1 1102 sub PAYMENT_NUMBER_DATE {return $_[0]->_get_column('PAYMENT_NUMBER_DATE')}
47 2     2 1 1099 sub PAYMENT_NUMBER_TYPE {return $_[0]->_get_column('PAYMENT_NUMBER_TYPE')}
48 2     2 1 1100 sub PAYMENT_NUMBER_NUMBER {return $_[0]->_get_column('PAYMENT_NUMBER_NUMBER')}
49 2     2 1 1080 sub RECORD_TYPE {return $_[0]->_get_column('RECORD_TYPE')}
50 2     2 1 1161 sub DETAIL_RECORD_TYPE {return $_[0]->_get_column('DETAIL_RECORD_TYPE')}
51 2     2 1 1064 sub AMEX_PROCESS_DATE {return $_[0]->_get_column('AMEX_PROCESS_DATE')}
52 2     2 1 599 sub ASSET_BILLING_AMOUNT {return $_[0]->_get_column('ASSET_BILLING_AMOUNT')}
53 2     2 1 1111 sub ASSET_BILLING_DESCRIPTION {return $_[0]->_get_column('ASSET_BILLING_DESCRIPTION')}
54 2     2 1 1108 sub TAKE_ONE_COMMISSION_AMOUNT {return $_[0]->_get_column('TAKE_ONE_COMMISSION_AMOUNT')}
55 2     2 1 545 sub TAKE_ONE_DESCRIPTION {return $_[0]->_get_column('TAKE_ONE_DESCRIPTION')}
56 2     2 1 1158 sub OTHER_FEE_AMOUNT {return $_[0]->_get_column('OTHER_FEE_AMOUNT')}
57 2     2 1 1076 sub OTHER_FEE_DESCRIPTION {return $_[0]->_get_column('OTHER_FEE_DESCRIPTION')}
58 2     2 1 1068 sub ASSET_BILLING_TAX {return $_[0]->_get_column('ASSET_BILLING_TAX')}
59 2     2 1 1090 sub PAY_IN_GROSS_INDICATOR {return $_[0]->_get_column('PAY_IN_GROSS_INDICATOR')}
60              
61 2     2 1 1103 sub SERVICE_AGENT_MERCHANT_ID {return $_[0]->_get_column('SERVICE_AGENT_MERCHANT_ID')}
62              
63             1;
64              
65             __END__