mirror of
https://github.com/perlbot/perlbuut
synced 2025-06-08 11:05:42 -04:00
11 lines
222 B
Perl
11 lines
222 B
Perl
use WWW::Shorten 'Metamark';
|
|
no warnings 'void';
|
|
sub {
|
|
my( $said, $pm ) = @_;
|
|
|
|
print "New link: ", makeashorterlink($said->{body});
|
|
}
|
|
|
|
|
|
__DATA__
|
|
shorten <url> returns the "short form" of a url. Defaults to using xrl.us.
|