File Coverage

blib/lib/ETL/Yertl/Command/yto.pm

Criterion	Covered	Total	%
statement	25	27	92.5
branch	8	10	80.0
condition			n/a
subroutine	4	4	100.0
pod	0	1	0.0
total	37	42	88.1

package ETL::Yertl::Command::yto;
our $VERSION = '0.037';
# ABSTRACT: Write documents to a format like JSON or CSV

use ETL::Yertl;
use ETL::Yertl::Util qw( load_module );
use Module::Runtime qw( use_module compose_module_name is_module_spec );

sub main {
    my $class = shift;

    my %opt;
    if ( ref $_[-1] eq 'HASH' ) {
        %opt = %{ pop @_ };
    }

    my ( $format, @files ) = @_;

    die "Must give a format\n" unless $format;
    my $out_fmt = load_module( format => $format )->new( %opt );

    push @files, "-" unless @files;
    for my $file ( @files ) {
        # We're doing a similar behavior to <>, but manually for easier testing.
        my $fh;
        if ( $file eq '-' ) {
            # Use the existing STDIN so tests can fake it
            $fh = \*STDIN;
        }
        else {
            unless ( open $fh, '<', $file ) {
                warn "Could not open file '$file' for reading: $!\n";
                next;
            }
        }

        my $in_fmt = load_module( format => 'default' )->new( input => $fh );
        print $out_fmt->write( $in_fmt->read );
    }
}

1;

__END__