Bot::BasicBot::Pluggable::Module::Foldoc - give the url of a word in Foldoc

    foldoc (for ) <word>

package Bot::BasicBot::Pluggable::Module::Foldoc;

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


sub said { 
    my ($self, $mess, $pri) = @_;

    my $body = $mess->{body}; 
    my $who  = $mess->{who};

    return unless ($pri == 2);

    return unless $body =~ m!^\s*foldoc(?: for)?\s+(.*)!i;

    my ($terms) = $1;
    $terms =~ s/\?\W*$//;

    my $key= $terms;
    $key =~ s/\s+$//;
    $key =~ s/^\s+//;
    $key =~ s/\W+/+/g;

    return "$terms may be sought in foldoc at http://foldoc.org/?$key";

}

sub help {
    return "Commands: 'websters (for ) <word>'";
}

1;