File Coverage

blib/lib/App/Table2YAML/Loader.pm

Criterion	Covered	Total	%
statement	31	34	91.1
branch	1	4	25.0
condition	1	5	20.0
subroutine	9	9	100.0
pod	1	2	50.0
total	43	54	79.6

package App::Table2YAML::Loader;

use common::sense;
use charnames q(:full);
use Carp;
use English qw[-no_match_vars];
use List::Util qw[first];
use Moo;
with qw[
    App::Table2YAML::Loader::AsciiTable
    App::Table2YAML::Loader::DSV
    App::Table2YAML::Loader::FixedWidth
    App::Table2YAML::Loader::HTML
    App::Table2YAML::Loader::LaTeX
    App::Table2YAML::Loader::Texinfo
];

our $VERSION = '0.002'; # VERSION

has input => (
    is  => q(rw),
    isa => sub { -e $_[0] && -r $_[0] && -f $_[0] && -s $_[0] },
);
has input_type => ( is => q(rw), default => q(), );
has field_separator => (
    is  => q(rw),
    isa => sub { @_ == 1 && length $_[0] == 1 },
);
has record_separator => (
    is  => q(rw),
    isa => sub {
        @_ == 1 && first { $_[0] eq $_ } (
            qq(\N{CARRIAGE RETURN}),
            qq(\N{LINE FEED}),
            qq(\N{CARRIAGE RETURN}\N{LINE FEED}),
        );
    },
    default => qq{\N{LINE FEED}},
);
has field_offset => (
    is      => q(rw),
    isa     => sub { ref $_[0] eq q(ARRAY); },
    default => sub { []; },
);

sub BUILD {
    my $self = shift;
    my $args = shift;

    foreach my $arg ( keys %{$args} ) {
        if ( $self->can($arg) ) {
            $self->$arg( delete $args->{$arg} );
        }
    }

    return 1;
}

sub load {
    my $self = shift;

    if ( !( defined $self->input_type() ) || $self->input_type() eq q() ) {
        croak(
            sprintf q(invalid input_type: '%s'),
            $self->input_type() // q(undef),
        );
    }

    my $loader = q(load_) . lc $self->input_type();
    my @table  = $self->$loader();

    return @table;
} ## end sub load

no Moo;
__PACKAGE__->meta->make_immutable;

1;

__END__