NAME
WWW::Shorten::Shorl - Perl interface to shorl.com
SYNOPSIS
use WWW::Shorten::Shorl;
use WWW::Shorten 'Shorl';
$short_url = makeashorterlink($long_url);
($short_url,$password) = makeashorterlink($long_url);
$long_url = makealongerlink($short_url);
DESCRIPTION
A Perl interface to the web site shorl.com. Shorl simply maintains a database of long URLs, each of which has a unique identifier.
The function makeashorterlink
will call the Shorl web site passing it your long URL and will return the shorter Shorl version. If used in a list context, then it will return both the Shorl URL and the password.
The function makealongerlink
does the reverse. makealongerlink
will accept as an argument either the full Shorl URL or just the Shorl identifier.
If anything goes wrong, then either function will return undef
.
Note that Shorl, unlike TinyURL and MakeAShorterLink, returns a unique code for every submission.
EXPORT
makeashorterlink, makealongerlink
BUGS
Please report bugs at <bug-www-shorten@rt.cpan.org> or via the web interface at http://rt.cpan.org
AUTHOR
Iain Truskett <spoon@cpan.org>
Based on WWW::MakeAShorterLink by Dave Cross <dave@dave.org.uk>