File Coverage

blib/lib/Bot/Cobalt/Plugin/Urban.pm

Criterion	Covered	Total	%
statement	7	9	77.7
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	10	12	83.3

package Bot::Cobalt::Plugin::Urban;
# ABSTRACT: Bot::Cobalt plugin for looking up urban dictionary terms
$Bot::Cobalt::Plugin::Urban::VERSION = '0.001';
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 Cobalt_register {
   my $self = shift;
   my $core = shift;

   register( $self, 'SERVER', 'public_cmd_urban', 'public_cmd_urban_random' );

   logger->info("Registered, commands: !urban, !urban_random");

   return PLUGIN_EAT_NONE;
}

sub Cobalt_unregister {
   my $self = shift;
   my $core = shift;

   logger->info("Unregistered");

   return PLUGIN_EAT_NONE;
}

sub Bot_public_cmd_urban_random {
   my $self = shift;
   my $core = shift;
   my $msg  = ${ shift() };

   my $context = $msg->context;
   my $channel = $msg->target;
   my $nick    = $msg->src_nick;

   my $url   = "$URBAN_API/random";
   my $resp  = HTTP::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 = '';
   if ($entry->{example}) {
      $example = sprintf(
         '%sExample: %s',
         $entry->{definition} =~ /\n/ ? "\n" : '- ',
         $entry->{example},
      );
   }

   my $def = sprintf(
      '[%d/%d] %s: %s %s',
      $idx + 1,
      $total,
      $entry->{word},
      $entry->{definition},
      $example,
   );

   broadcast( 'message', $context, $channel, $_ )
      foreach split /\n/, $def;

   return PLUGIN_EAT_ALL;
}

sub Bot_public_cmd_urban {
   my $self = shift;
   my $core = shift;
   my $msg  = ${ shift() };

   my $context = $msg->context;
   my $channel = $msg->target;
   my $nick    = $msg->src_nick;

   my $url = "$URBAN_API/define?";
   my @split = split(/ /, $msg->stripped);

   shift @split; # shift off the command

   my $idx  = ($split[-1] =~ m/^\d$/) ? ( pop(@split) - 1) : 0;
   my $term = join('+', @split);
   my $resp  = 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) {
      my $no_results =   "$nick: That doesn't even exist in urban dictionary, "
                       . "stop making stuff up.";
      broadcast( 'message', $context, $channel, $no_results );
      return PLUGIN_EAT_ALL;
   }

   my $example = '';
   if ($entry->{example}) {
      $example = sprintf(
         '%sExample: %s',
         $entry->{definition} =~ /\n/ ? "\n" : '- ',
         $entry->{example},
      );
   }

   my $def = sprintf(
      '[%d/%d] %s: %s %s',
      $idx + 1,
      $total,
      $entry->{word},
      $entry->{definition},
      $example,
   );

   broadcast( 'message', $context, $channel, $_ )
      foreach split /\n/, $def;

   return PLUGIN_EAT_ALL;
}

1;

__END__