File Coverage

blib/lib/Finance/AMEX/Transaction/GRRCN/TaxRecord.pm
Criterion Covered Total %
statement 9 23 39.1
branch n/a
condition n/a
subroutine 3 17 17.6
pod 13 14 92.8
total 25 54 46.3


line stmt bran cond sub pod time code
1             package Finance::AMEX::Transaction::GRRCN::TaxRecord;
2             $Finance::AMEX::Transaction::GRRCN::TaxRecord::VERSION = '0.003';
3 7     7   46 use strict;
  7         17  
  7         198  
4 7     7   35 use warnings;
  7         16  
  7         178  
5              
6             # ABSTRACT: Parse AMEX Global Reconciliation (GRRCN) TaxRecord Rows
7              
8 7     7   36 use base 'Finance::AMEX::Transaction::GRRCN::Base';
  7         16  
  7         2988  
9              
10             sub field_map {
11             return {
12 0     0 0   RECORD_TYPE => [1, 10],
13             PAYEE_MERCHANT_ID => [11, 15],
14             SETTLEMENT_ACCOUNT_TYPE_CODE => [26, 3],
15             AMERICAN_EXPRESS_PAYMENT_NUMBER => [29, 10],
16             PAYMENT_DATE => [39, 8],
17             PAYMENT_CURRENCY => [47, 3],
18              
19             TAX_TYPE_CODE => [50, 2],
20             TAX_DESCRIPTION => [52, 64],
21             TAX_BASE_AMOUNT => [116, 24],
22             TAX_PRESENT_DATE => [140, 8],
23             TAX_RATE => [148, 20],
24             TAX_AMOUNT => [168, 24],
25             };
26             }
27              
28 0     0 1   sub type {return 'TAXRECORD'}
29              
30 0     0 1   sub RECORD_TYPE {return $_[0]->_get_column('RECORD_TYPE')}
31 0     0 1   sub PAYEE_MERCHANT_ID {return $_[0]->_get_column('PAYEE_MERCHANT_ID')}
32 0     0 1   sub SETTLEMENT_ACCOUNT_TYPE_CODE {return $_[0]->_get_column('SETTLEMENT_ACCOUNT_TYPE_CODE')}
33 0     0 1   sub AMERICAN_EXPRESS_PAYMENT_NUMBER {return $_[0]->_get_column('AMERICAN_EXPRESS_PAYMENT_NUMBER')}
34 0     0 1   sub PAYMENT_DATE {return $_[0]->_get_column('PAYMENT_DATE')}
35 0     0 1   sub PAYMENT_CURRENCY {return $_[0]->_get_column('PAYMENT_CURRENCY')}
36 0     0 1   sub TAX_TYPE_CODE {return $_[0]->_get_column('TAX_TYPE_CODE')}
37 0     0 1   sub TAX_DESCRIPTION {return $_[0]->_get_column('TAX_DESCRIPTION')}
38 0     0 1   sub TAX_BASE_AMOUNT {return $_[0]->_get_column('TAX_BASE_AMOUNT')}
39 0     0 1   sub TAX_PRESENT_DATE {return $_[0]->_get_column('TAX_PRESENT_DATE')}
40 0     0 1   sub TAX_RATE {return $_[0]->_get_column('TAX_RATE')}
41 0     0 1   sub TAX_AMOUNT {return $_[0]->_get_column('TAX_AMOUNT')}
42              
43             1;
44              
45             __END__