diff options
-rw-r--r-- | lib/Crawl/Bot/Plugin/Help.pm | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/lib/Crawl/Bot/Plugin/Help.pm b/lib/Crawl/Bot/Plugin/Help.pm new file mode 100644 index 0000000..46f3e42 --- /dev/null +++ b/lib/Crawl/Bot/Plugin/Help.pm @@ -0,0 +1,25 @@ +package Crawl::Bot::Plugin::Help; +use Moose; +use autodie; +extends 'Crawl::Bot::Plugin'; + +sub said { + my $self = shift; + my ($args) = @_; + + if ($args->{body} =~ /^\%(help|source)/) { + my $msg = "http://s-z.org/neil/git/cheibriados.git http://s-z.org/neil/git/monster-trunk.git git://gitorious.org/crawl/crawl.git"; + + my %keys = ( + who => $args->{who}, + channel => $args->{channel}, + "body" => $msg + ); + $self->say(%keys); + } +} + +__PACKAGE__->meta->make_immutable; +no Moose; + +1; |