File Coverage

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

Criterion	Covered	Total	%
statement	7	24	29.1
branch			n/a
condition			n/a
subroutine	3	6	50.0
pod	0	4	0.0
total	10	34	29.4

package Bot::Cobalt::Plugin::Silly::Reverse;
$Bot::Cobalt::Plugin::Silly::Reverse::VERSION = '0.030001';
use strictures 2;

use Object::Pluggable::Constants qw/ :ALL /;

sub new { bless [], shift }

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

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

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

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

  my $str = join ' ', @{ $msg->message_array };
  my $reverse = scalar reverse $str;

  my $channel = $msg->channel;

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

  return PLUGIN_EAT_ALL
}

1;
__END__