File Coverage

blib/lib/Finance/AMEX/Transaction/EPPRC/Detail/ChargeSummaryPricing.pm
Criterion Covered Total %
statement 28 28 100.0
branch n/a
condition n/a
subroutine 22 22 100.0
pod 18 19 94.7
total 68 69 98.5


line stmt bran cond sub pod time code
1             package Finance::AMEX::Transaction::EPPRC::Detail::ChargeSummaryPricing;
2             $Finance::AMEX::Transaction::EPPRC::Detail::ChargeSummaryPricing::VERSION = '0.004';
3 8     8   60 use strict;
  8         22  
  8         243  
4 8     8   44 use warnings;
  8         18  
  8         226  
5              
6             # ABSTRACT: Parse AMEX Transaction/Invoice Level Reconciliation (EPPRC) Summary of Charge (SOC) Level Pricing Rows
7              
8 8     8   41 use base 'Finance::AMEX::Transaction::EPPRC::Base';
  8         19  
  8         5156  
9              
10             sub field_map {
11             return {
12              
13 324     324 0 4611 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              
24             FEE_CODE => [46, 2],
25             FEE_DESCRIPTION => [45, 25],
26             DISCOUNT_RATE => [73, 9],
27             DISCOUNT_AMOUNT => [82, 15],
28             FEE_RATE => [97, 9],
29             FEE_AMOUNT => [106, 15],
30             MERCHANT_ID => [121, 15],
31             };
32             }
33              
34 36     36 1 10351 sub type {return 'SOC_PRICING'}
35              
36 18     18 1 9292 sub AMEX_PAYEE_NUMBER {return $_[0]->_get_column('AMEX_PAYEE_NUMBER')}
37 18     18 1 9094 sub AMEX_SE_NUMBER {return $_[0]->_get_column('AMEX_SE_NUMBER')}
38 18     18 1 10036 sub SE_UNIT_NUMBER {return $_[0]->_get_column('SE_UNIT_NUMBER')}
39 18     18 1 10159 sub PAYMENT_YEAR {return $_[0]->_get_column('PAYMENT_YEAR')}
40 18     18 1 9064 sub PAYMENT_NUMBER {return $_[0]->_get_column('PAYMENT_NUMBER')}
41 18     18 1 9778 sub PAYMENT_NUMBER_DATE {return $_[0]->_get_column('PAYMENT_NUMBER_DATE')}
42 18     18 1 10075 sub PAYMENT_NUMBER_TYPE {return $_[0]->_get_column('PAYMENT_NUMBER_TYPE')}
43 18     18 1 8874 sub PAYMENT_NUMBER_NUMBER {return $_[0]->_get_column('PAYMENT_NUMBER_NUMBER')}
44 18     18 1 9536 sub RECORD_TYPE {return $_[0]->_get_column('RECORD_TYPE')}
45 18     18 1 9450 sub DETAIL_RECORD_TYPE {return $_[0]->_get_column('DETAIL_RECORD_TYPE')}
46 18     18 1 10034 sub FEE_CODE {return $_[0]->_get_column('FEE_CODE')}
47 18     18 1 10586 sub FEE_DESCRIPTION {return $_[0]->_get_column('FEE_DESCRIPTION')}
48 18     18 1 8377 sub DISCOUNT_RATE {return $_[0]->_get_column('DISCOUNT_RATE')}
49 18     18 1 7864 sub DISCOUNT_AMOUNT {return $_[0]->_get_column('DISCOUNT_AMOUNT')}
50 18     18 1 10363 sub FEE_RATE {return $_[0]->_get_column('FEE_RATE')}
51 18     18 1 9957 sub FEE_AMOUNT {return $_[0]->_get_column('FEE_AMOUNT')}
52 18     18 1 9938 sub MERCHANT_ID {return $_[0]->_get_column('MERCHANT_ID')}
53              
54             1;
55              
56             __END__