File Coverage

blib/lib/Catmandu/Exporter/Table.pm

Criterion	Covered	Total	%
statement	27	27	100.0
branch	4	4	100.0
condition	2	3	66.6
subroutine	9	9	100.0
pod	0	1	0.0
total	42	44	95.4

package Catmandu::Exporter::Table;

our $VERSION = '0.3.0';

use Catmandu::Sane;
use Moo;
use Text::MarkdownTable;
use IO::Handle::Util ();
use IO::File;
use JSON::XS ();

with 'Catmandu::Exporter';

# JSON Table Schema
has schema => (
    is => 'ro',
    coerce => sub {
        my $schema = $_[0];
        unless (ref $schema and ref $schema eq 'HASH') {
            $schema = \*STDIN if $schema eq '-';
            my $fh = ref $schema
                    ? IO::Handle::Util::io_from_ref($schema)
                    : IO::File->new($schema, "r");
            die "failed to load JSON Table Schema from $schema" unless $fh;
            local $/;
            $schema = JSON::XS::decode_json(<$fh>);
        }
        $schema;
    }
);

has fields => (
    is      => 'ro',
    lazy    => 1,
    builder => sub {
        return unless $_[0]->schema;
        [ map { $_->{name} } @{$_[0]->schema->{fields}} ];
    }
);

has columns => (
    is      => 'ro',
    lazy    => 1,
    builder => sub {
        return unless $_[0]->schema;
        [ map { $_->{title} // $_->{name} } @{$_[0]->schema->{fields}} ];
    }
);

has widths   => (is => 'ro');
has condense => (is => 'ro');
has header   => (is => 'ro');

has _table => (
    is      => 'lazy',
    default => sub {
        Text::MarkdownTable->new(
            file => $_[0]->fh,
            map { $_ => $_[0]->$_ }
            grep { defined $_[0]->$_ }
            qw(fields columns widths condense header)
        );
    },
);

sub add {
    $_[0]->_table->add($_[1])
}

sub commit {
    $_[0]->_table->done
}

1;
__END__