wrapper script for twitterwatch

tw.pl

#!/usr/bin/perl
use strict;
use warnings;
use Bot::BasicBot::Pluggable;

use lib './';
use TwitterWatch;

my $bot = Bot::BasicBot::Pluggable->new(
    channels => ["#waa"],
    server   => "irc.oftc.net",
    port     => "6667",
    nick     => "foo",
    username => "bar",
    name     => "baz",
);

my $tw = $bot->load("TwitterWatch");

$tw->set( 'access_token'        => 'aaa' );
$tw->set( 'access_token_secret' => 'bbb' );
$tw->set( 'consumer_key'        => 'ccc' );
$tw->set( 'consumer_secret'     => 'ddd' );

$bot->run;