File Coverage

blib/lib/Bot/Cobalt/Plugin/Silly/LOLCAT.pm

Criterion	Covered	Total	%
statement	10	12	83.3
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	14	16	87.5

package Bot::Cobalt::Plugin::Silly::LOLCAT;
$Bot::Cobalt::Plugin::Silly::LOLCAT::VERSION = '0.031001';
use strictures 2;

use POE::Filter::Stackable;
use POE::Filter::Line;
use POE::Filter::LOLCAT;

use Bot::Cobalt::Common;

sub FILTER () { 0 }

sub new { bless [undef], shift }

sub Cobalt_register {
  my ($self, $core) = splice @_, 0, 2;

  $core->plugin_register( $self, 'SERVER',
    'public_cmd_lolcat'
  );


  $core->log->info("Loaded");
  return PLUGIN_EAT_NONE
}

sub Cobalt_unregister {
  my ($self, $core) = splice @_, 0, 2;
  $core->log->info("Unloaded");
  return PLUGIN_EAT_NONE
}

sub Bot_public_cmd_lolcat {
  my ($self, $core) = splice @_, 0, 2;

  my $msg     = ${ $_[0] };
  my $context = $msg->context;

  my $str = decode_irc( join ' ', @{ $msg->message_array } );
  $str ||= "Can I have a line to parse?";

  my $filter = $self->[FILTER] //= POE::Filter::Stackable->new(
    Filters => [
        POE::Filter::Line->new(),
        POE::Filter::LOLCAT->new(),
    ],
  );

  $filter->get_one_start([$str."\n"]);

  my $lol = $filter->get_one;

  my $cat = shift @$lol;
  chomp($cat);

  my $channel = $msg->channel;
  $core->send_event( 'send_message',
    $context,
    $channel,
    'LOLCAT: '.$cat
  ) if $cat;

  return PLUGIN_EAT_ALL
}

1;
__END__