Yet Another CPAN Grep

Net-YASA ( C/CL/CLSUNG/Net-YASA-0.03.tar.gz, CLSUNG, 2009; MetaCPAN )

Net-YASA/lib/Net/YASA.pm ( view source; MetaCPAN )

e->is_success();
    if ($self->{output} eq "json" and eval {
	    require JSON::Any;
	    1;
	}) {
	my $result = $response->content();
        my $j = JSON::Any->new;

	my $data = $j->decode($result)