File Coverage

blib/lib/Finance/AMEX/Transaction/EPTRN/Base.pm
Criterion Covered Total %
statement 15 18 83.3
branch 1 2 50.0
condition n/a
subroutine 4 5 80.0
pod 2 2 100.0
total 22 27 81.4


line stmt bran cond sub pod time code
1             package Finance::AMEX::Transaction::EPTRN::Base;
2             $Finance::AMEX::Transaction::EPTRN::Base::VERSION = '0.003';
3 7     7   53 use strict;
  7         15  
  7         178  
4 7     7   34 use warnings;
  7         14  
  7         1510  
5              
6             # ABSTRACT: Parse AMEX Transaction/Invoice Level Reconciliation (EPTRN)
7              
8             sub new {
9 5     5 1 16 my ($class, %props) = @_;
10             my $self = bless {
11             _line => $props{line},
12 5         17 }, $class;
13              
14 5         18 return $self;
15             }
16              
17             sub line {
18 0     0 1 0 my ($self) = @_;
19 0         0 return $self->{_line};
20             }
21              
22             sub _get_column {
23 82     82   171 my ($self, $field) = @_;
24 82         168 my $map = $self->field_map->{$field};
25              
26             # if the line is not long enough to handle the start of the field,
27             # it is an optional field that we don't have
28 82 50       410 if (length($self->{_line}) < $map->[0]) {
29 0         0 return '';
30             }
31              
32 82         199 my $ret = substr($self->{_line}, $map->[0] - 1, $map->[1]);
33 82         233 $ret =~ s{\s+\z}{};
34 82         427 return $ret;
35             }
36              
37             1;
38              
39             __END__