#!/usr/bin/perl
use warnings;
use strict;

package Marvin;
use base 'Bot::BasicBot';

my $channel = '#irctoys';
my $server = 'my.internal.server';
my $nick = 'marvin';

#### IRC event handlers overload ####
sub connected {
    my $self = shift;
    $self->forkit({ channel => $channel,
                    run     => \&watch_svn,
                    arguments => [ $self ],
                 });
}

#### my stuff ####
sub watch_svn {
    my $self = shift;
    $self->log("watch_svn: Started main loop\n");
    while (1) {
        $self->log("watch_svn: Inside main loop\n");
        print "this should go on $channel\n";
        sleep 60;
    }
}

#### actual bot ####
package main;

Marvin->new(nick => $nick, channels => [ $channel ], server => $server )
       ->run;

exit;