Yet Another CPAN Grep

Google-Data-JSON ( T/TA/TAKERU/Google-Data-JSON-v0.1.10.tar.gz, TAKERU, 2012; MetaCPAN )

Google-Data-JSON/lib/Google/Data/JSON.pm ( view source; MetaCPAN )

package Google::Data::JSON;

use warnings;
use strict;

use version; our $VERSION = qv('0.1.10');

use File::Slurp;
use JSON::Any;
use List::MoreUtils qw( any uniq );
use Perl6::Export::Attrs;
use Sto

$type eq 'json' || $type eq 'hash' || $type eq 'atom';
    return __PACKAGE__->error("Bad stream: $type => $stream")
        if ($type eq 'xml'  && $stream !~ /^</)
        || ($type eq 'json' && $str

isa($stream, 'HASH')            ? 'hash'
         : $stream  =~ /^\{/                          ? 'json'
         : $stream  =~ /^</                           ? 'xml'
         : __PACKAGE__->error("Bad