File Coverage

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

Criterion	Covered	Total	%
statement	7	25	28.0
branch			n/a
condition			n/a
subroutine	3	6	50.0
pod	0	4	0.0
total	10	35	28.5

package Bot::Cobalt::Plugin::Silly::Rot13;
$Bot::Cobalt::Plugin::Silly::Rot13::VERSION = '0.031002';
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_rot13'
  );

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

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

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

  $str =~ tr/a-zA-Z/n-za-mN-ZA-M/;

  my $channel = $msg->channel;

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

  return PLUGIN_EAT_ALL
}

1;
__END__