File Coverage

blib/lib/Reconcile/Accounts/Vin.pm

Criterion	Covered	Total	%
statement	35	38	92.1
branch	5	10	50.0
condition			n/a
subroutine	8	8	100.0
pod	3	3	100.0
total	51	59	86.4

package Reconcile::Accounts::Vin;

use v5.14;
use Carp;

our $VERSION = 1.02_01;

sub new
{
    my ($class) = shift;
    my $self = {@_};
    $self->{checks} = [ \&_audit, \&_remove, \&_lpad ];
    $self->{entry} = 0;
    return bless $self, $class;
}

sub run_checks
{
	my ($self, $item) = @_;
	$item =~ s/(\w)/\U$1/gi;
	$self->{item} = $item;

    foreach my $method_name ( @{$self->{checks}} )
    {
        $method_name->($self);
    }

    return $self->{item};
}

sub _lpad
{
    my $self = shift;

    eval
    {
		length($self->{item}) == $self->{length} && return;
		$self->{item} =~ s/(\w+)/sprintf "%017s",$1/ge;
    };
    if ($@)
    {
		carp "error in _lpad ";
    }
}


sub _remove
{
    my $self = shift;

    eval
    {
        $self->{item} =~ s/\W/\w/g;
		$self->{item} =~ s/$_/$self->{remove}->{$_}/gi for (keys %{$self->{remove}});
    };
    if ($@)
    {
		carp "error in _remove ";
    }
}

sub _audit
{
    my $self = shift;
    eval
    {
        $self->{entry}++;
    };
    if ($@)
    {
		carp "error in _audit ";
    }
}

sub get_length
{
    my $self = shift;
    return $self->{length} or carp "error in get_length ";
}

1;


__END__