IRC::Bot::Hangman::Command::Eliza - Eliza commands

IRC-Bot-Hangman documentation

Contained in the IRC-Bot-Hangman distribution.

Index

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

Code Index:

package IRC::Bot::Hangman::Command::Eliza
- name
- post_process
EOF

NAME

IRC::Bot::Hangman::Command::Eliza - Eliza commands

SYNOPSIS

See IRC::Bot::Hangman

DESCRIPTION

This module is a plugin providing a Liza bot.

COMMANDS

  <hangman> blah blah...

METHODS

name()

This plugin's name = 'default'

post_process()

Gives a Liza answer if no answer has been given by Hangman

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::Eliza;
use warnings::register;
use strict;
use Chatbot::Eliza;
use Carp  qw( carp );

our $Eliza;

sub name () { 'eliza' }

sub post_process {
  my $self  = shift;
  my $robot = shift;
  return if ( $robot->response );

  $Eliza ||= Chatbot::Eliza->new;
  $robot->response( $Eliza->transform( $robot->input ) );
}



1;