File Coverage

blib/lib/App/Table2YAML/Loader/DSV.pm

Criterion	Covered	Total	%
statement	31	31	100.0
branch	1	2	50.0
condition	1	2	50.0
subroutine	9	9	100.0
pod	1	1	100.0
total	43	45	95.5

package App::Table2YAML::Loader::DSV;

use common::sense;
use charnames q(:full);
use English qw[-no_match_vars];
use IO::File;
use Moo::Role;
use Text::CSV_XS;

our $VERSION = '0.002'; # VERSION

sub load_dsv {
    my $self = shift;

    my $ref = ref $self->input() // q();
    my $dsv_fh
        = $ref eq q(GLOB)
        ? $self->input()
        : IO::File->new( $self->input(), q(r) );
    my $csv_obj = Text::CSV_XS->new(
        {   binary         => 1,
            empty_is_undef => 1,
            sep_char       => $self->field_separator(),
            eol            => $self->record_separator(),
            auto_diag      => 9,
            diag_verbose   => 1,
        }
    );
    my @dsv = @{ $csv_obj->getline_all($dsv_fh) };

    return @dsv;
} ## end sub load_dsv

no Moo;
__PACKAGE__->meta->make_immutable;

1;

__END__