#!/usr/bin/perl
use Modern::Perl;
use Bot::BasicBot::Pluggable;

my $bot = Bot::BasicBot::Pluggable->new(
                      channels => ["#bottest"],
                      server   => "irc.test.test",
                      port     => "6667",
                      nick     => "bot",
               );
$bot->load('MyModule');
$bot->run();

##</code><code>##

package Bot::BasicBot::Pluggable::Module::MyModule;
use warnings;
use strict;
use base qw(Bot::BasicBot::Pluggable::Module);

sub init {
    my $self = shift;
    $self->config(
        {
            sc                  => 2
        }
    );
}

sub help {
    return "Does wild things";
}

sub admin {
   my ($self, $msg) = @_;
   my $who = $msg->{who};
   my $body = $msg->{body};
   my $channel = $msg->{channel};
   my $address = $msg->{address};

#       if($address) {
#               return "you talk to me";
#       }
# ...
}

1;