#!/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();