Yet Another CPAN Grep

Bot-Cobalt-Plugin-Urban ( S/SJ/SJM/Bot-Cobalt-Plugin-Urban-0.001.tar.gz, SJM, 2014; MetaCPAN )

Bot-Cobalt-Plugin-Urban/lib/Bot/Cobalt/Plugin/Urban.pm ( view source; MetaCPAN )


use strict;
use warnings;

use Bot::Cobalt;
use Bot::Cobalt::Common;

use HTTP::Tiny;
use JSON qw(decode_json);

my $URBAN_API = 'http://api.urbandictionary.com/v0';

sub new { bless {}, shift }

sub

TP::Tiny->new->get($url);
   my $json  = decode_json($resp->{content});
   my $total = scalar(@{$json->{list}});
   my $idx   = int(rand($total));
   my $entry = $json->{list}->[$idx];

   my $example

HTTP::Tiny->new->get($url . "term=$term");
   my $json  = decode_json($resp->{content});
   my $total = scalar(@{$json->{list}});
   my $entry = $json->{list}->[$idx];

   if (not defined $entry) {