Yet Another CPAN Grep

App-Cerberus-client ( D/DR/DRTECH/App-Cerberus-client-0.08.tar.gz, DRTECH, 2012; MetaCPAN )

App-Cerberus-client/lib/App/Cerberus/Client.pm ( view source; MetaCPAN )

:Tiny();
use List::Util qw(shuffle);
use List::MoreUtils qw(uniq );
use JSON();
use Carp;
use Any::URI::Escape;

our $JSON = JSON->new->utf8(1);

#===================================
sub new {
#======

p}->get( $server . $qs );
        if ( $response->{success} ) {
            my $content = eval { $JSON->decode( $response->{content} ) }
                or warn "Decoding response from ($server): "