CPAN::Groonga

ret;
    goto &d;
}

# JSON Dumper
sub jd {
    my $ret = $_[-1] eq '_Devel::Kit_return' ? 1 : 0;

    @_ = _at_setup(
        'JSON::Syck',
        sub {
            eval { JSON::Syck::Load( $_[0] );

 YAML dumper

    perl -MDevel::Kit -e 'yd($your_yaml_here)'

=head4 jd() JSON dumper

    perl -MDevel::Kit -e 'jd($your_json_here)'

=head4 xd() XML dumper

    perl -MDevel::Kit -e 'xd($your_xml_he

and what not:

=over 4

=item L<Data::Dumper>

=item L<File::Slurp>

=item L<YAML::Syck>

=item L<JSON::Syck>

=item L<XML::Parser>

=item L<Storable>

=item L<Data::MessagePack>

=item L<Digest::MD5>