File Coverage

blib/lib/App/Table2YAML.pm

Criterion	Covered	Total	%
statement	38	38	100.0
branch	3	4	75.0
condition			n/a
subroutine	10	10	100.0
pod	1	2	50.0
total	52	54	96.3

package App::Table2YAML;

use common::sense;
use charnames q(:full);
use Carp;
use English qw[-no_match_vars];
use Moo;
use App::Table2YAML::Loader;
use App::Table2YAML::Serializer;

our $VERSION = '0.002'; # VERSION

has loader => (
    is      => q(rw),
    default => sub { App::Table2YAML::Loader->new(); },
);
has serializer => (
    is      => q(rw),
    default => sub { App::Table2YAML::Serializer->new(); },
);

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

    foreach my $method ( keys %{$args} ) {
        foreach my $class (qw[loader serializer]) {
            if ( $self->$class->can($method) ) {
                my $value = delete $args->{$method};
                $self->$class->$method($value);
            }
        }
    }

    return 1;
} ## end sub BUILD

sub convert {
    my $self = shift;

    my @table = $self->loader->load();

    return unless @table;

    my @yaml = $self->serializer->serialize(@table);

    return @yaml;
}

no Moo;
__PACKAGE__->meta->make_immutable;

1;

__END__