File Coverage

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

Criterion	Covered	Total	%
statement	10	26	38.4
branch	0	2	0.0
condition			n/a
subroutine	4	8	50.0
pod	0	5	0.0
total	14	41	34.1

package Bot::Cobalt::Plugin::Silly::DailyFail;
$Bot::Cobalt::Plugin::Silly::DailyFail::VERSION = '0.031002';
use strictures 2;

use Acme::Daily::Fail 'get_headline';

use Bot::Cobalt::Common;

sub new { bless [], shift }

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

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

  $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_dailyfail { Bot_public_cmd_headline(@_) }
sub Bot_public_cmd_headline {
  my ($self, $core) = splice @_, 0, 2;

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

  my $resp = get_headline();

  my $channel = $msg->channel;

  $core->send_event( 'send_message',
    $context,
    $channel,
    "BREAKING: ".$resp
  ) if $resp;

  return PLUGIN_EAT_ALL
}

1;
__END__