File Coverage

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

Criterion	Covered	Total	%
statement	34	43	79.0
branch	4	12	33.3
condition	2	5	40.0
subroutine	8	9	88.8
pod	2	5	40.0
total	50	74	67.5

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

use Text::CSV;

# ABSTRACT: Parse AMEX Global Reconciliation (GRRCN) Base methods

sub new {
  my ($class, %props) = @_;
  my $self = bless {
    _line        => $props{line},
    _file_format => $props{file_format},
    _fields      => undef,
    _version     => $props{version} || 1.01,
  }, $class;

  my $map = $self->field_map;

  my @sorted = sort {$map->{$a}->[0] <=> $map->{$b}->[0]} keys %{$map};
  my $numbered = {};
  for (my $i = 0; $i < @sorted; $i++) {
    $numbered->{$sorted[$i]} = $i;
  }

  $self->{_fields} = $numbered;

  return $self;
}

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

sub file_format {
  my ($self) = @_;
  return $self->{_file_format};
}

sub fields {
  my ($self) = @_;
  return $self->{_fields};
}

sub version {
  my ($self) = @_;
  return $self->{_version};
}

sub _get_column {
  my ($self, $field) = @_;

  if ($self->file_format eq 'CSV' or $self->file_format eq 'TSV') {

   # Text::CSV does not like blank space at the end of the line
   $self->{_line} =~ s{\s+\z}{};
   my $index = $self->fields->{$field};

   my $csv = Text::CSV->new ({
     binary      => 1,
     quote_char  => '"',
     escape_char => "\\",
   }) or die "Cannot use CSV: ".Text::CSV->error_diag ();

   if ($self->file_format eq 'TSV') {
     $csv->sep_char("\t");
   }

   if (my $status = $csv->parse($self->{_line})) {
     return ($csv->fields)[$index];
   }

  } elsif ($self->file_format eq 'FIXED') {

    my $map = $self->field_map;

    # 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}{};
    return $ret;
  }

}

1;

__END__