File Coverage

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

Criterion	Covered	Total	%
statement	16	18	88.8
branch	2	2	100.0
condition			n/a
subroutine	4	5	80.0
pod	2	2	100.0
total	24	27	88.8

package Finance::AMEX::Transaction::EPPRC::Base 0.005;

use strict;
use warnings;

# ABSTRACT: Parse AMEX Chargeback Notification Files (EPPRC) Base methods

sub new {
  my ($class, %props) = @_;
  my $self = bless {_line => $props{line}}, $class;
  return $self;
}

sub line {
  my ($self) = @_;
  return $self->{_line};
}

sub _get_column {
  my ($self, $field) = @_;
  my $map = $self->field_map->{$field};

  # if the line is not long enough to handle the start of the field,
  # it is an optional field that we don't have
  if (length($self->{_line}) < $map->[0]) {
    return '';
  }

  my $ret = substr($self->{_line}, $map->[0] - 1, $map->[1]);
  $ret =~ s{\s+\z}{}xsm;
  return $ret;
}

1;

__END__