view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

share/test/html/simple.html
share/test/latex/ascii7.tex
share/test/latex/simple.tex
share/test/texinfo/ascii7.texi
share/test/texinfo/simple.texi
share/test/yaml/ascii7.yml
share/test/yaml/simple.yml
t/00-compile.t
t/app-table2yaml.t
xt/author/no-tabs.t
xt/author/test-eol.t
xt/release/cpan-changes.t
xt/release/dist-manifest.t
xt/release/distmeta.t
xt/release/kwalitee.t
xt/release/minimum-version.t
xt/release/mojibake.t
xt/release/pod-coverage.t
xt/release/pod-linkcheck.t
xt/release/pod-syntax.t
xt/release/portability.t

lib/App/Table2YAML/Loader/DSV.pm  view on Meta::CPAN

    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;