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

package Finance::AMEX::Transaction::GRRCN::TaxRecord;
$Finance::AMEX::Transaction::GRRCN::TaxRecord::VERSION = '0.004';
use strict;
use warnings;

# ABSTRACT: Parse AMEX Global Reconciliation (GRRCN) TaxRecord Rows

use base 'Finance::AMEX::Transaction::GRRCN::Base';

sub field_map {
  return {
    RECORD_TYPE                     => [1, 10],
    PAYEE_MERCHANT_ID               => [11, 15],
    SETTLEMENT_ACCOUNT_TYPE_CODE    => [26, 3],
    AMERICAN_EXPRESS_PAYMENT_NUMBER => [29, 10],
    PAYMENT_DATE                    => [39, 8],
    PAYMENT_CURRENCY                => [47, 3],

    TAX_TYPE_CODE                   => [50, 2],
    TAX_DESCRIPTION                 => [52, 64],
    TAX_BASE_AMOUNT                 => [116, 24],
    TAX_PRESENT_DATE                => [140, 8],
    TAX_RATE                        => [148, 20],
    TAX_AMOUNT                      => [168, 24],
  };
}

sub type {return 'TAXRECORD'}

sub RECORD_TYPE                     {return $_[0]->_get_column('RECORD_TYPE')}
sub PAYEE_MERCHANT_ID               {return $_[0]->_get_column('PAYEE_MERCHANT_ID')}
sub SETTLEMENT_ACCOUNT_TYPE_CODE    {return $_[0]->_get_column('SETTLEMENT_ACCOUNT_TYPE_CODE')}
sub AMERICAN_EXPRESS_PAYMENT_NUMBER {return $_[0]->_get_column('AMERICAN_EXPRESS_PAYMENT_NUMBER')}
sub PAYMENT_DATE                    {return $_[0]->_get_column('PAYMENT_DATE')}
sub PAYMENT_CURRENCY                {return $_[0]->_get_column('PAYMENT_CURRENCY')}
sub TAX_TYPE_CODE                   {return $_[0]->_get_column('TAX_TYPE_CODE')}
sub TAX_DESCRIPTION                 {return $_[0]->_get_column('TAX_DESCRIPTION')}
sub TAX_BASE_AMOUNT                 {return $_[0]->_get_column('TAX_BASE_AMOUNT')}
sub TAX_PRESENT_DATE                {return $_[0]->_get_column('TAX_PRESENT_DATE')}
sub TAX_RATE                        {return $_[0]->_get_column('TAX_RATE')}
sub TAX_AMOUNT                      {return $_[0]->_get_column('TAX_AMOUNT')}

1;

__END__