lib/Crawl/Bot/Plugin/Help.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
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;