The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

WWW::Shorten::QuickOnes - Perl interface to quickones.org

SYNOPSIS

  use WWW::Shorten::QuickOnes;

  use WWW::Shorten 'QuickOnes';

  $short_url = makeashorterlink($long_url);

  $long_url  = makealongerlink($short_url);

DESCRIPTION

A Perl interface to the web site quickones.org. QuickOnes simply maintains a database of long URLs, each of which has a unique identifier.

The function makeashorterlink will call the QuickOnes web site passing it your long URL and will return the shorter QuickOnes version.

The function makealongerlink does the reverse. makealongerlink will accept as an argument either the full QuickOnes URL or just the QuickOnes identifier.

If anything goes wrong, then either function will return undef.

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

Iain Truskett <spoon@cpan.org>

Based on WWW::MakeAShorterLink by Dave Cross <dave@dave.org.uk>

SEE ALSO

WWW::Shorten, perl, http://quickones.org/