File Coverage

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


line stmt bran cond sub pod time code
1             package Finance::AMEX::Transaction::EPPRC::Detail::RecordSummaryPricing 0.005;
2              
3 9     9   55 use strict;
  9         24  
  9         233  
4 9     9   40 use warnings;
  9         15  
  9         211  
5              
6             # ABSTRACT: Parse AMEX Transaction/Invoice Level Reconciliation (EPPRC) Record of Charge (ROC) Level Pricing Record Rows
7              
8 9     9   39 use base 'Finance::AMEX::Transaction::EPPRC::Base';
  9         15  
  9         4411  
9              
10             sub field_map {
11             return {
12 5994     5994 1 67721 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             FEE_CODE => [46, 2],
23             FEE_DESCRIPTION => [48, 25],
24             DISCOUNT_RATE => [73, 9],
25             DISCOUNT_AMOUNT => [82, 15],
26             FEE_RATE => [97, 9],
27             FEE_AMOUNT => [106, 15],
28             MERCHANT_ID => [121, 15],
29             };
30             }
31              
32 666     666 1 161027 sub type {return 'ROC_PRICING'}
33              
34 333     333 1 137022 sub AMEX_PAYEE_NUMBER {return $_[0]->_get_column('AMEX_PAYEE_NUMBER')}
35 333     333 1 149887 sub AMEX_SE_NUMBER {return $_[0]->_get_column('AMEX_SE_NUMBER')}
36 333     333 1 148449 sub SE_UNIT_NUMBER {return $_[0]->_get_column('SE_UNIT_NUMBER')}
37 333     333 1 136372 sub PAYMENT_YEAR {return $_[0]->_get_column('PAYMENT_YEAR')}
38 333     333 1 149954 sub PAYMENT_NUMBER {return $_[0]->_get_column('PAYMENT_NUMBER')}
39 333     333 1 155500 sub PAYMENT_NUMBER_DATE {return $_[0]->_get_column('PAYMENT_NUMBER_DATE')}
40 333     333 1 149087 sub PAYMENT_NUMBER_TYPE {return $_[0]->_get_column('PAYMENT_NUMBER_TYPE')}
41 333     333 1 140754 sub PAYMENT_NUMBER_NUMBER {return $_[0]->_get_column('PAYMENT_NUMBER_NUMBER')}
42 333     333 1 139239 sub RECORD_TYPE {return $_[0]->_get_column('RECORD_TYPE')}
43 333     333 1 157271 sub DETAIL_RECORD_TYPE {return $_[0]->_get_column('DETAIL_RECORD_TYPE')}
44 333     333 1 153630 sub FEE_CODE {return $_[0]->_get_column('FEE_CODE')}
45 333     333 1 152939 sub FEE_DESCRIPTION {return $_[0]->_get_column('FEE_DESCRIPTION')}
46 333     333 1 148751 sub DISCOUNT_RATE {return $_[0]->_get_column('DISCOUNT_RATE')}
47 333     333 1 148119 sub DISCOUNT_AMOUNT {return $_[0]->_get_column('DISCOUNT_AMOUNT')}
48 333     333 1 147515 sub FEE_RATE {return $_[0]->_get_column('FEE_RATE')}
49 333     333 1 154669 sub FEE_AMOUNT {return $_[0]->_get_column('FEE_AMOUNT')}
50 333     333 1 152388 sub MERCHANT_ID {return $_[0]->_get_column('MERCHANT_ID')}
51              
52             1;
53              
54             __END__