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;