File Coverage

blib/lib/Business/NAB/CSV.pm

Criterion	Covered	Total	%
statement	45	47	95.7
branch	3	4	75.0
condition	2	2	100.0
subroutine	11	13	84.6
pod	0	2	0.0
total	61	68	89.7

package Business::NAB::CSV;
$Business::NAB::CSV::VERSION = '0.03';
# undocument abstract class for parsing/creating CSV lines
# mostly delegated to Text::CSV_XS

use strict;
use warnings;
use feature qw/ signatures /;
use autodie qw/ :all /;
use Carp    qw/ croak /;

use Moose;
use Moose::Util::TypeConstraints;
no warnings qw/ experimental::signatures /;

use Text::CSV_XS qw/ csv /;

sub _record_type { croak( "You must define the _record_type method" ) }

sub _attributes { croak( "You must define the _attributes method" ) }

sub new_from_record ( $class, $line ) {

    my $aoh = csv(
        in      => \$line,
        headers => [ 'record_type', $class->_attributes ],
    ) or croak( Text::CSV->error_diag );

    my $self = $class->new( my %record = $aoh->[ 0 ]->%* );

    if ( $record{ record_type } ne $self->_record_type ) {
        croak( "unsupported record type (@{[ $record{record_type} ]})" );
    }

    return $self;
}

sub to_record ( $self, $aoa = undef ) {

    $aoa //= [ [
        map { $self->$_ }
            '_record_type', $self->_attributes,
    ] ];

    csv(
        in          => $aoa,
        out         => \my $data,
        quote_space => 0,
        eol         => '',
    );

    return $data;
}

1;