File Coverage

blib/lib/Finance/AMEX/Transaction/EPPRC/Detail/Chargeback.pm
Criterion Covered Total %
statement 9 36 25.0
branch n/a
condition n/a
subroutine 3 30 10.0
pod 26 27 96.3
total 38 93 40.8


line stmt bran cond sub pod time code
1             package Finance::AMEX::Transaction::EPPRC::Detail::Chargeback;
2             $Finance::AMEX::Transaction::EPPRC::Detail::Chargeback::VERSION = '0.004';
3 8     8   56 use strict;
  8         20  
  8         249  
4 8     8   39 use warnings;
  8         20  
  8         222  
5              
6             # ABSTRACT: Parse AMEX Reconciliation Files (EPPRC) Chargeback Detail Rows
7              
8 8     8   45 use base 'Finance::AMEX::Transaction::EPPRC::Base';
  8         16  
  8         6455  
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             SE_BUSINESS_DATE => [46, 7],
24             AMEX_PROCESS_DATE => [53, 7],
25             SOC_INVOICE_NUMBER => [60, 6],
26             SOC_AMOUNT => [66, 11],
27             CHARGEBACK_AMOUNT => [77, 9],
28             DISCOUNT_AMOUNT => [86, 9],
29             SERVICE_FEE_AMOUNT => [95, 7],
30             NET_CHARGEBACK_AMOUNT => [109, 9],
31             DISCOUNT_RATE => [118, 5],
32             SERVICE_FEE_RATE => [123, 5],
33             CHARGEBACK_REASON => [144, 280],
34             BATCH_CODE => [424, 3],
35             BILL_CODE => [427, 3],
36             SERVICE_AGENT_MERCHANT_ID => [430, 15],
37             MEMBERSHIP_REWARDS => [445, 1],
38             };
39             }
40              
41 0     0 1   sub type {return 'CHARGEBACK_DETAIL'}
42              
43 0     0 1   sub AMEX_PAYEE_NUMBER {return $_[0]->_get_column('AMEX_PAYEE_NUMBER')}
44 0     0 1   sub AMEX_SE_NUMBER {return $_[0]->_get_column('AMEX_SE_NUMBER')}
45 0     0 1   sub SE_UNIT_NUMBER {return $_[0]->_get_column('SE_UNIT_NUMBER')}
46 0     0 1   sub PAYMENT_YEAR {return $_[0]->_get_column('PAYMENT_YEAR')}
47 0     0 1   sub PAYMENT_NUMBER {return $_[0]->_get_column('PAYMENT_NUMBER')}
48 0     0 1   sub PAYMENT_NUMBER_DATE {return $_[0]->_get_column('PAYMENT_NUMBER_DATE')}
49 0     0 1   sub PAYMENT_NUMBER_TYPE {return $_[0]->_get_column('PAYMENT_NUMBER_TYPE')}
50 0     0 1   sub PAYMENT_NUMBER_NUMBER {return $_[0]->_get_column('PAYMENT_NUMBER_NUMBER')}
51 0     0 1   sub RECORD_TYPE {return $_[0]->_get_column('RECORD_TYPE')}
52 0     0 1   sub DETAIL_RECORD_TYPE {return $_[0]->_get_column('DETAIL_RECORD_TYPE')}
53 0     0 1   sub SE_BUSINESS_DATE {return $_[0]->_get_column('SE_BUSINESS_DATE')}
54 0     0 1   sub AMEX_PROCESS_DATE {return $_[0]->_get_column('AMEX_PROCESS_DATE')}
55 0     0 1   sub SOC_INVOICE_NUMBER {return $_[0]->_get_column('SOC_INVOICE_NUMBER')}
56 0     0 1   sub SOC_AMOUNT {return $_[0]->_get_column('SOC_AMOUNT')}
57 0     0 1   sub CHARGEBACK_AMOUNT {return $_[0]->_get_column('CHARGEBACK_AMOUNT')}
58 0     0 1   sub DISCOUNT_AMOUNT {return $_[0]->_get_column('DISCOUNT_AMOUNT')}
59 0     0 1   sub SERVICE_FEE_AMOUNT {return $_[0]->_get_column('SERVICE_FEE_AMOUNT')}
60 0     0 1   sub NET_CHARGEBACK_AMOUNT {return $_[0]->_get_column('NET_CHARGEBACK_AMOUNT')}
61 0     0 1   sub DISCOUNT_RATE {return $_[0]->_get_column('DISCOUNT_RATE')}
62 0     0 1   sub SERVICE_FEE_RATE {return $_[0]->_get_column('SERVICE_FEE_RATE')}
63 0     0 1   sub CHARGEBACK_REASON {return $_[0]->_get_column('CHARGEBACK_REASON')}
64 0     0 1   sub BATCH_CODE {return $_[0]->_get_column('BATCH_CODE')}
65 0     0 1   sub BILL_CODE {return $_[0]->_get_column('BILL_CODE')}
66 0     0 1   sub SERVICE_AGENT_MERCHANT_ID {return $_[0]->_get_column('SERVICE_AGENT_MERCHANT_ID')}
67 0     0 1   sub MEMBERSHIP_REWARDS {return $_[0]->_get_column('MEMBERSHIP_REWARDS')}
68              
69             1;
70              
71             __END__