File Coverage

blib/lib/Finance/AMEX/Transaction/EPPRC.pm

Criterion	Covered	Total	%
statement	61	63	96.8
branch	22	26	84.6
condition	2	6	33.3
subroutine	15	15	100.0
pod	2	2	100.0
total	102	112	91.0

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

use Finance::AMEX::Transaction::EPPRC::Header;
use Finance::AMEX::Transaction::EPPRC::Summary;
use Finance::AMEX::Transaction::EPPRC::Detail::ChargeSummary;
use Finance::AMEX::Transaction::EPPRC::Detail::ChargeSummaryPricing;
use Finance::AMEX::Transaction::EPPRC::Detail::RecordSummary;
use Finance::AMEX::Transaction::EPPRC::Detail::RecordSummaryPricing;
use Finance::AMEX::Transaction::EPPRC::Detail::Chargeback;
use Finance::AMEX::Transaction::EPPRC::Detail::Adjustment;
use Finance::AMEX::Transaction::EPPRC::Detail::Other;
use Finance::AMEX::Transaction::EPPRC::Trailer;
use Finance::AMEX::Transaction::EPPRC::Unknown;

# ABSTRACT: Parse AMEX Transaction/Invoice Level Reconciliation (EPPRC)

sub new {
  my ($class, %props) = @_;

  my $type_map = {
    HEADER            => 'Finance::AMEX::Transaction::EPPRC::Header',
    SUMMARY           => 'Finance::AMEX::Transaction::EPPRC::Summary',
    SOC_DETAIL        => 'Finance::AMEX::Transaction::EPPRC::Detail::ChargeSummary',
    SOC_PRICING       => 'Finance::AMEX::Transaction::EPPRC::Detail::ChargeSummaryPricing',
    ROC_DETAIL        => 'Finance::AMEX::Transaction::EPPRC::Detail::RecordSummary',
    ROC_PRICING       => 'Finance::AMEX::Transaction::EPPRC::Detail::RecordSummaryPricing',
    CHARGEBACK_DETAIL => 'Finance::AMEX::Transaction::EPPRC::Detail::Chargeback',
    ADJUSTMENT_DETAIL => 'Finance::AMEX::Transaction::EPPRC::Detail::Adjustment',
    OTHER_DETAIL      => 'Finance::AMEX::Transaction::EPPRC::Detail::Other',
    TRAILER           => 'Finance::AMEX::Transaction::EPPRC::Trailer',
  };

  my $self = bless {
    _type_map => $type_map,
  }, $class;

  return $self;
}

sub parse_line {
  my ($self, $line) = @_;

  return if not defined $line;

  my $header_trailer_indicator = substr($line, 0, 5);

  # DFHDR = header
  # DFTRL = trailer

  # 1-00 = Summary
  # 2-10 = SOC detail
  # 2-12 = SOC pricing
  # 3-11 = ROC detail
  # 3-13 = ROC pricing
  # 2-20 = Chargeback detail
  # 2-30 = Adjustment detail
  # 2-40, 2-41, 2-50 = Other Fees and Revenues detail

  my $indicator = 'UNKNOWN';

  if ($header_trailer_indicator eq 'DFHDR') {
    $indicator = 'HEADER';
  } elsif ($header_trailer_indicator eq 'DFTRL') {
    $indicator = 'TRAILER';
  } elsif ($indicator eq 'UNKNOWN') {
    my $summary_detail_indicator = join('-', substr($line, 42, 1), substr($line, 43, 2));
    if ($summary_detail_indicator eq '1-00') {
      $indicator = 'SUMMARY';
    } elsif ($summary_detail_indicator eq '2-10') {
      $indicator = 'SOC_DETAIL';
    } elsif ($summary_detail_indicator eq '2-12') {
      $indicator = 'SOC_PRICING';
    } elsif ($summary_detail_indicator eq '3-11') {
      $indicator = 'ROC_DETAIL';
    } elsif ($summary_detail_indicator eq '3-13') {
      $indicator = 'ROC_PRICING';
    } elsif ($summary_detail_indicator eq '2-20') {
      $indicator = 'CHARGEBACK_DETAIL';
    } elsif ($summary_detail_indicator eq '2-30') {
      $indicator = 'ADJUSTMENT_DETAIL';
    } elsif ($summary_detail_indicator eq '2-40' or $summary_detail_indicator eq '2-41' or $summary_detail_indicator eq '2-50') {
      $indicator = 'OTHER_DETAIL';
    }
  }
  if (exists $self->{_type_map}->{$indicator}) {
    return $self->{_type_map}->{$indicator}->new(line => $line);
  }
  return Finance::AMEX::Transaction::EPPRC::Unknown->new(line => $line);
}

1;

__END__