CPAN::Groonga

use strict;
use warnings;

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

our $VERSION = '1.000';

use JSON::MaybeXS qw<decode_json>;

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

d $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') ? $cl

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

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

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

use strict;
use warnings;

package App::JSON::to::perl;

our $VERSION = '1.000';

use Data::Dumper ();


sub dump
{
    my $data = $_[1];

    local $Data::Dumper::Indent = 0;
    local $Data::Dumper:

use strict;
use warnings;

package App::JSON::to::yaml;

our $VERSION = '1.000';

use YAML::Tiny ();


sub encoding
{
    'UTF-8'
}

sub dump
{
    YAML::Tiny->new($_[1])->write_string
}

1;