File Coverage

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

Criterion	Covered	Total	%
statement	13	34	38.2
branch	0	2	0.0
condition			n/a
subroutine	5	10	50.0
pod	0	6	0.0
total	18	52	34.6

package Bot::Cobalt::Plugin::OutputFilters::StripFormat;
$Bot::Cobalt::Plugin::OutputFilters::StripFormat::VERSION = '0.021003';


use strict;
use warnings;

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

use IRC::Utils qw/ strip_formatting /;

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 FORMATTING");

  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_formatting(${$_[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_formatting(${$_[3]});

  return PLUGIN_EAT_NONE
}

1;
__END__