IRC::Bot::Hangman::Command::Profanity - Profanity filter

IRC-Bot-Hangman documentation

Contained in the IRC-Bot-Hangman distribution.

Index

NAME
SYNOPSIS
DESCRIPTION
COMMANDS
METHODS
- name()
- pre_process()
AUTHOR
COPYRIGHT

Code Index:

package IRC::Bot::Hangman::Command::Profanity
- name
- pre_process
EOF

NAME

IRC::Bot::Hangman::Command::Profanity - Profanity filter

SYNOPSIS

See IRC::Bot::Hangman

DESCRIPTION

This module is a plugin providing profanity filtering.

COMMANDS

  <hangman> *profanity word*

METHODS

name()

This plugin's name = 'profanity'

pre_process()

Filter out any profanity

AUTHOR

Pierre Denis <pierre@itrelease.net>

http://www.itrelease.net/

COPYRIGHT

Copyright 2005 IT Release Ltd - All Rights Reserved.

This module is released under the same license as Perl itself.

IRC-Bot-Hangman documentation

Contained in the IRC-Bot-Hangman distribution.

package IRC::Bot::Hangman::Command::Profanity;
use warnings::register;
use strict;
use Regexp::Common qw/profanity/;
use Carp  qw( carp );

sub name () { 'profanity' }

sub pre_process {
  my $self  = shift;
  my $robot = shift;

  return unless ($robot->input =~ /$RE{profanity}/);

  $robot->set_response( 'profanity' );
}



1;