root/trunk/antimatter/tim/Bot-BasicBot-Pluggable/examples/simple.pl

#!/usr/bin/perl

# A standard Bot::BasicBot::Pluggable interface. This implements a very
# simple bot, with a 'seen' module, a 'google' module and an 'infobot'
# module.

use warnings;
use strict;
use Bot::BasicBot::Pluggable;

my $bot = Bot::BasicBot::Pluggable->new( channels => [ ],
                                         server => "london.irc.perl.org",
                                         nick => "jerabot",
                                         );
                                         

$bot->load("Seen");

#my $google = $bot->load("Google");
#$google->set("google_key", "xxxxxxxxxxxxxxx");

$bot->load("Infobot");
$bot->load("Title");

$bot->run();