File Coverage

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

Criterion	Covered	Total	%
statement	10	25	40.0
branch	0	2	0.0
condition			n/a
subroutine	4	7	57.1
pod	0	4	0.0
total	14	38	36.8

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

use Bot::Cobalt::Common;

use Acme::MakeMoneyAtHome;

sub new { bless [], shift }

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

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

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

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

  my $resp = make_money_at_home;

  my $channel = $msg->channel;

  $core->send_event( 'send_message',
    $context,
    $channel,
    $resp
  ) if $resp;

  return PLUGIN_EAT_ALL
}

1;
__END__