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	14	14	100.0
total	26	54	48.1

package Finance::AMEX::Transaction::GRRCN::TaxRecord 0.005;

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]},
    {FILLER1                         => [192, 609]},
  ];
}

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__