NAME
WWW::Shorten::MakeAShorterLink - Perl interface to makeashorterlink.com
SYNOPSIS
use WWW::Shorten::MakeAShorterLink;
use WWW::Shorten 'MakeAShorterLink';
$short_url = makeashorterlink($long_url);
$long_url = makealongerlink($short_url);DESCRIPTION
A Perl interface to the web site makeashorterlink.com (MASL to its friends). MASL simply maintains a database of long URLs, each of which has a unique identifier.
The function makeashorterlink will call the MASL web site passing it your long URL and will return the shorter MASL version.
The function makealongerlink does the reverse. makealongerlink will accept as an argument either the full MASL URL or just the MASL identifier.
If the URL to be shortened is already as short, or shorter, than how MASL would make it, then the URL you gave is returned. If anything else goes wrong, then either function will return undef.
For more information, see WWW::Shorten.
EXPORT
makeashorterlink, makealongerlink
BUGS, REQUESTS, COMMENTS
Please report any requests, suggestions or bugs via the system at http://rt.cpan.org/, or email <bug-WWW-Shorten@rt.cpan.org>. This makes it much easier for me to track things and thus means your problem is less likely to be neglected.
AUTHOR
Dave Cross <dave@dave.org.uk> Subtle modifications by Iain Truskett <spoon@cpan.org> Original LWP hacking by Alex Page <grimoire@corinne.cpio.org> makealongerlink idea by Simon Batistoni <simon@hitherto.net>