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 24 30 80.0
total 96 102 94.1


line stmt bran cond sub pod time code
1             package Finance::AMEX::Transaction::EPTRN::Detail::RecordSummary;
2             $Finance::AMEX::Transaction::EPTRN::Detail::RecordSummary::VERSION = '0.003';
3 7     7   48 use strict;
  7         15  
  7         189  
4 7     7   35 use warnings;
  7         17  
  7         174  
5              
6             # ABSTRACT: Parse AMEX Transaction/Invoice Level Reconciliation (EPTRN) Record of Charge (ROC) Detail Rows
7              
8 7     7   34 use base 'Finance::AMEX::Transaction::EPTRN::Base';
  7         13  
  7         5768  
9              
10             sub field_map {
11             return {
12              
13 29     29 0 419 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              
28             TLRR_ROC_AMOUNT => [79, 13],
29             TLRR_CM_NUMBER => [92, 15],
30             TLRR_CM_REF_NO => [107, 11],
31             TLRR_SE_REF => [118, 9],
32             TLRR_ROC_NUMBER => [137, 10],
33             TLRR_TRAN_DATE => [147, 7],
34             TLRR_SE_REF_POA => [154, 30],
35             NON_COMPLIANT_INDICATOR => [184, 1],
36             NON_COMPLIANT_ERROR_CODE_1 => [185, 4],
37             NON_COMPLIANT_ERROR_CODE_2 => [189, 4],
38             NON_COMPLIANT_ERROR_CODE_3 => [193, 4],
39             NON_COMPLIANT_ERROR_CODE_4 => [197, 4],
40             NON_SWIPED_INDICATOR => [201, 1],
41             TLRR_CM_NUMB_EXD => [229, 19],
42             };
43             }
44              
45 2     2 1 491 sub type {return 'ROC_DETAIL'}
46              
47 1     1 1 443 sub TLRR_AMEX_PAYEE_NUMBER {return $_[0]->_get_column('TLRR_AMEX_PAYEE_NUMBER')}
48 1     1 1 464 sub TLRR_AMEX_SE_NUMBER {return $_[0]->_get_column('TLRR_AMEX_SE_NUMBER')}
49 1     1 1 438 sub TLRR_SE_UNIT_NUMBER {return $_[0]->_get_column('TLRR_SE_UNIT_NUMBER')}
50 1     1 1 430 sub TLRR_PAYMENT_YEAR {return $_[0]->_get_column('TLRR_PAYMENT_YEAR')}
51 1     1 1 430 sub TLRR_PAYMENT_NUMBER {return $_[0]->_get_column('TLRR_PAYMENT_NUMBER')}
52 1     1 1 452 sub TLRR_PAYMENT_NUMBER_DATE {return $_[0]->_get_column('TLRR_PAYMENT_NUMBER_DATE')}
53 1     1 1 488 sub TLRR_PAYMENT_NUMBER_TYPE {return $_[0]->_get_column('TLRR_PAYMENT_NUMBER_TYPE')}
54 1     1 1 454 sub TLRR_PAYMENT_NUMBER_NUMBER {return $_[0]->_get_column('TLRR_PAYMENT_NUMBER_NUMBER')}
55 1     1 1 466 sub TLRR_RECORD_TYPE {return $_[0]->_get_column('TLRR_RECORD_TYPE')}
56 1     1 1 445 sub TLRR_DETAIL_RECORD_TYPE {return $_[0]->_get_column('TLRR_DETAIL_RECORD_TYPE')}
57 1     1 1 430 sub TLRR_SE_BUSINESS_DATE {return $_[0]->_get_column('TLRR_SE_BUSINESS_DATE')}
58 1     1 1 438 sub TLRR_AMEX_PROCESS_DATE {return $_[0]->_get_column('TLRR_AMEX_PROCESS_DATE')}
59 1     1 1 453 sub TLRR_SOC_INVOICE_NUMBER {return $_[0]->_get_column('TLRR_SOC_INVOICE_NUMBER')}
60 1     1 1 475 sub TLRR_SOC_AMOUNT {return $_[0]->_get_column('TLRR_SOC_AMOUNT')}
61              
62 1     1 1 451 sub TLRR_ROC_AMOUNT {return $_[0]->_get_column('TLRR_ROC_AMOUNT')}
63 1     1 1 431 sub TLRR_CM_NUMBER {return $_[0]->_get_column('TLRR_CM_NUMBER')}
64 1     1 1 468 sub TLRR_CM_REF_NO {return $_[0]->_get_column('TLRR_CM_REF_NO')}
65 1     1 1 452 sub TLRR_SE_REF {return $_[0]->_get_column('TLRR_SE_REF')}
66 1     1 1 9 sub TLRR_ROC_NUMBER {return $_[0]->_get_column('TLRR_ROC_NUMBER')}
67 1     1 1 428 sub TLRR_TRAN_DATE {return $_[0]->_get_column('TLRR_TRAN_DATE')}
68 1     1 1 450 sub TLRR_SE_REF_POA {return $_[0]->_get_column('TLRR_SE_REF_POA')}
69 1     1 0 464 sub NON_COMPLIANT_INDICATOR {return $_[0]->_get_column('NON_COMPLIANT_INDICATOR')}
70 1     1 1 431 sub NON_COMPLIANT_ERROR_CODE_1 {return $_[0]->_get_column('NON_COMPLIANT_ERROR_CODE_1')}
71 1     1 0 456 sub NON_COMPLIANT_ERROR_CODE_2 {return $_[0]->_get_column('NON_COMPLIANT_ERROR_CODE_2')}
72 1     1 0 483 sub NON_COMPLIANT_ERROR_CODE_3 {return $_[0]->_get_column('NON_COMPLIANT_ERROR_CODE_3')}
73 1     1 0 429 sub NON_COMPLIANT_ERROR_CODE_4 {return $_[0]->_get_column('NON_COMPLIANT_ERROR_CODE_4')}
74 1     1 0 453 sub NON_SWIPED_INDICATOR {return $_[0]->_get_column('NON_SWIPED_INDICATOR')}
75 1     1 1 429 sub TLRR_CM_NUMB_EXD {return $_[0]->_get_column('TLRR_CM_NUMB_EXD')}
76              
77             1;
78              
79             __END__