File Coverage

blib/lib/Finance/AMEX/Transaction/EPTRN/Detail/RecordSummary.pm
Criterion Covered Total %
statement 39 39 100.0
branch n/a
condition n/a
subroutine 33 33 100.0
pod 30 30 100.0
total 102 102 100.0


line stmt bran cond sub pod time code
1             package Finance::AMEX::Transaction::EPTRN::Detail::RecordSummary 0.005;
2              
3 9     9   51 use strict;
  9         18  
  9         213  
4 9     9   39 use warnings;
  9         19  
  9         200  
5              
6             # ABSTRACT: Parse AMEX Transaction/Invoice Level Reconciliation (EPTRN) Record of Charge (ROC) Detail Rows
7              
8 9     9   41 use base 'Finance::AMEX::Transaction::EPTRN::Base';
  9         30  
  9         6556  
9              
10             sub field_map {
11             return {
12              
13 29     29 1 408 TLRR_AMEX_PAYEE_NUMBER => [1, 10],
14             TLRR_AMEX_SE_NUMBER => [11, 10],
15             TLRR_SE_UNIT_NUMBER => [21, 10],
16             TLRR_PAYMENT_YEAR => [31, 4],
17             TLRR_PAYMENT_NUMBER => [35, 8],
18             TLRR_PAYMENT_NUMBER_DATE => [35, 3],
19             TLRR_PAYMENT_NUMBER_TYPE => [38, 1],
20             TLRR_PAYMENT_NUMBER_NUMBER => [39, 4],
21             TLRR_RECORD_TYPE => [43, 1],
22             TLRR_DETAIL_RECORD_TYPE => [44, 2],
23             TLRR_SE_BUSINESS_DATE => [46, 7],
24             TLRR_AMEX_PROCESS_DATE => [53, 7],
25             TLRR_SOC_INVOICE_NUMBER => [60, 6],
26             TLRR_SOC_AMOUNT => [66, 13],
27             TLRR_ROC_AMOUNT => [79, 13],
28             TLRR_CM_NUMBER => [92, 15],
29             TLRR_CM_REF_NO => [107, 11],
30             TLRR_SE_REF => [118, 9],
31             TLRR_ROC_NUMBER => [137, 10],
32             TLRR_TRAN_DATE => [147, 7],
33             TLRR_SE_REF_POA => [154, 30],
34             NON_COMPLIANT_INDICATOR => [184, 1],
35             NON_COMPLIANT_ERROR_CODE_1 => [185, 4],
36             NON_COMPLIANT_ERROR_CODE_2 => [189, 4],
37             NON_COMPLIANT_ERROR_CODE_3 => [193, 4],
38             NON_COMPLIANT_ERROR_CODE_4 => [197, 4],
39             NON_SWIPED_INDICATOR => [201, 1],
40             TLRR_CM_NUMB_EXD => [229, 19],
41             };
42             }
43              
44 2     2 1 450 sub type {return 'ROC_DETAIL'}
45              
46 1     1 1 431 sub TLRR_AMEX_PAYEE_NUMBER {return $_[0]->_get_column('TLRR_AMEX_PAYEE_NUMBER')}
47 1     1 1 446 sub TLRR_AMEX_SE_NUMBER {return $_[0]->_get_column('TLRR_AMEX_SE_NUMBER')}
48 1     1 1 429 sub TLRR_SE_UNIT_NUMBER {return $_[0]->_get_column('TLRR_SE_UNIT_NUMBER')}
49 1     1 1 430 sub TLRR_PAYMENT_YEAR {return $_[0]->_get_column('TLRR_PAYMENT_YEAR')}
50 1     1 1 432 sub TLRR_PAYMENT_NUMBER {return $_[0]->_get_column('TLRR_PAYMENT_NUMBER')}
51 1     1 1 482 sub TLRR_PAYMENT_NUMBER_DATE {return $_[0]->_get_column('TLRR_PAYMENT_NUMBER_DATE')}
52 1     1 1 447 sub TLRR_PAYMENT_NUMBER_TYPE {return $_[0]->_get_column('TLRR_PAYMENT_NUMBER_TYPE')}
53 1     1 1 428 sub TLRR_PAYMENT_NUMBER_NUMBER {return $_[0]->_get_column('TLRR_PAYMENT_NUMBER_NUMBER')}
54 1     1 1 429 sub TLRR_RECORD_TYPE {return $_[0]->_get_column('TLRR_RECORD_TYPE')}
55 1     1 1 436 sub TLRR_DETAIL_RECORD_TYPE {return $_[0]->_get_column('TLRR_DETAIL_RECORD_TYPE')}
56 1     1 1 429 sub TLRR_SE_BUSINESS_DATE {return $_[0]->_get_column('TLRR_SE_BUSINESS_DATE')}
57 1     1 1 503 sub TLRR_AMEX_PROCESS_DATE {return $_[0]->_get_column('TLRR_AMEX_PROCESS_DATE')}
58 1     1 1 429 sub TLRR_SOC_INVOICE_NUMBER {return $_[0]->_get_column('TLRR_SOC_INVOICE_NUMBER')}
59 1     1 1 448 sub TLRR_SOC_AMOUNT {return $_[0]->_get_column('TLRR_SOC_AMOUNT')}
60 1     1 1 429 sub TLRR_ROC_AMOUNT {return $_[0]->_get_column('TLRR_ROC_AMOUNT')}
61 1     1 1 444 sub TLRR_CM_NUMBER {return $_[0]->_get_column('TLRR_CM_NUMBER')}
62 1     1 1 431 sub TLRR_CM_REF_NO {return $_[0]->_get_column('TLRR_CM_REF_NO')}
63 1     1 1 437 sub TLRR_SE_REF {return $_[0]->_get_column('TLRR_SE_REF')}
64 1     1 1 429 sub TLRR_ROC_NUMBER {return $_[0]->_get_column('TLRR_ROC_NUMBER')}
65 1     1 1 431 sub TLRR_TRAN_DATE {return $_[0]->_get_column('TLRR_TRAN_DATE')}
66 1     1 1 428 sub TLRR_SE_REF_POA {return $_[0]->_get_column('TLRR_SE_REF_POA')}
67 1     1 1 448 sub NON_COMPLIANT_INDICATOR {return $_[0]->_get_column('NON_COMPLIANT_INDICATOR')}
68 1     1 1 16 sub NON_COMPLIANT_ERROR_CODE_1 {return $_[0]->_get_column('NON_COMPLIANT_ERROR_CODE_1')}
69 1     1 1 431 sub NON_COMPLIANT_ERROR_CODE_2 {return $_[0]->_get_column('NON_COMPLIANT_ERROR_CODE_2')}
70 1     1 1 428 sub NON_COMPLIANT_ERROR_CODE_3 {return $_[0]->_get_column('NON_COMPLIANT_ERROR_CODE_3')}
71 1     1 1 430 sub NON_COMPLIANT_ERROR_CODE_4 {return $_[0]->_get_column('NON_COMPLIANT_ERROR_CODE_4')}
72 1     1 1 432 sub NON_SWIPED_INDICATOR {return $_[0]->_get_column('NON_SWIPED_INDICATOR')}
73 1     1 1 776 sub TLRR_CM_NUMB_EXD {return $_[0]->_get_column('TLRR_CM_NUMB_EXD')}
74              
75             1;
76              
77             __END__