File Coverage

blib/lib/Bot/Cobalt/Plugin/Silly/FMK.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::Silly::FMK;
# ABSTRACT: Bot::Cobalt plugin for asking who the bot would F, M, or K
$Bot::Cobalt::Plugin::Silly::FMK::VERSION = '0.001';
use strict;
use warnings;

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

use List::AllUtils qw(shuffle uniq);

sub new      { bless {}, shift }
sub copulate { shift->{copulate} }

sub Cobalt_register {
   my $self = shift;
   my $core = shift;
   my $cfg  = $core->get_plugin_cfg($self);

   $self->{copulate} = $cfg->{censor} ? $cfg->{censor} : 'Fuck';

   register( $self, 'SERVER', 'public_cmd_fmk' );

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

   return PLUGIN_EAT_NONE;
}

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

   logger->info("Unregistered");

   return PLUGIN_EAT_NONE;
}

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

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

   my @split = split(/ /, $msg->stripped);

   shift @split; # shift off the command

   my $data  = join(' ', @split);
   my @names = uniq( split(/,\s*/, $data) );

   if (@names == 3) {
      @names = shuffle(@names);

      my $resp = sprintf(
         '%s: [%s] - Marry: [%s] - Kill: [%s]',
         ucfirst($self->copulate),
         @names,
      );

      broadcast('message', $context, $channel, $resp);
   }
   else {
      my $resp = sprintf(
         'You must provide three unique names (seperated by commas) %s-%s-%s',
         $self->copulate, 'marry', 'kill',
      );

      broadcast('message', $context, $channel, $resp);
   }

   return PLUGIN_EAT_ALL;
}

no List::AllUtils;

1;

__END__