mirror of
https://github.com/perlbot/perlbuut
synced 2025-06-07 17:05:43 -04:00
14 lines
277 B
Perl
14 lines
277 B
Perl
|
|
no warnings 'void';
|
|
sub {
|
|
my( $said, $pm ) = @_;
|
|
|
|
use WWW::Shorten::TinyURL;
|
|
use WWW::Shorten 'TinyURL';
|
|
|
|
print WWW::Shorten::TinyURL::makeashorterlink($said->{body}) // $said->{body};
|
|
}
|
|
|
|
|
|
__DATA__
|
|
shorten <url> returns the "short form" of a url. Defaults to using tinyurl.
|