File Coverage

blib/lib/App/JSON/to.pm

Criterion	Covered	Total	%
statement	27	27	100.0
branch	5	8	62.5
condition	1	3	33.3
subroutine	5	5	100.0
pod	0	1	0.0
total	38	44	86.3

use strict;
use warnings;

package App::JSON::to;
# ABSTRACT: Convert JSON data to various formats

our $VERSION = '1.000';

use JSON::MaybeXS qw;

sub run
{
    my ($to, @args) = @_;
    $to = lc $to;

    die "missing target format\n" unless defined $to;
    die "invalid target format '$to'\n"
	unless $to =~ /\A[a-z]+\z/ && eval { require "App/JSON/to/$to.pm"; 1 };
    my $class = __PACKAGE__ . '::' . $to;
    my $obj = $class->can('new') ? $class->new : $class;

    # TODO parse options
    # GetOptions($obj->options);

    binmode(STDIN, ':raw');
    my $data = decode_json do { local $/;  };

    if (my $enc_meth = $obj->can('encoding')) {
	binmode(STDOUT, ':encoding('.$obj->$enc_meth().')');
    }

    print $obj->dump($data);
}

1;
__END__