File Coverage

blib/lib/Bot/Cobalt/Plugin/OutputFilters/StripColor.pm

Criterion	Covered	Total	%
statement	10	31	32.2
branch	0	2	0.0
condition			n/a
subroutine	4	9	44.4
pod	0	6	0.0
total	14	48	29.1

package Bot::Cobalt::Plugin::OutputFilters::StripColor;
$Bot::Cobalt::Plugin::OutputFilters::StripColor::VERSION = '0.021002';


use strictures 2;

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

use IRC::Utils qw/ strip_color /;

sub new { bless [], shift }

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

  $core->plugin_register( $self, 'USER',
    'message', 'notice', 'ctcp',
  );

  $core->log->info("Registered, filtering COLORS");

  return PLUGIN_EAT_NONE
}

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

  $core->log->info("Unregistered");

  return PLUGIN_EAT_NONE
}

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

  ${$_[2]} = strip_color(${$_[2]});

  return PLUGIN_EAT_NONE
}

sub Outgoing_notice { Outgoing_message(@_) }

sub Outgoing_ctcp {
  my ($self, $core) = splice @_, 0, 2;
  my $type = ${$_[1]};

  return PLUGIN_EAT_NONE unless uc($type) eq 'ACTION';

  ${$_[3]} = strip_color(${$_[3]});

  return PLUGIN_EAT_NONE
}

1;
__END__