Chase Whitener > WWW-Shorten-Shorl > WWW::Shorten::Shorl

Download:
WWW-Shorten-Shorl-2.101.tar.gz

Dependencies

Annotate this POD

Website

View/Report Bugs
Module Version: 2.101   Source  

NAME ^

WWW::Shorten::Shorl - Perl interface to http://shorl.com

SYNOPSIS ^

  use strict;
  use warnings;

  use WWW::Shorten 'Shorl'; # recommended
  # use WWW::Shorten::Shorl; # also available

  my $long_url = 'http://www.foo.com/bar/';
  my $short_url = makeashorterlink($long_url);
  my ($short_url,$password) = makeashorterlink($long_url);

  $long_url = makealongerlink($short_url);

DESCRIPTION ^

WARNING: http://shorl.com does not provide an API. We must scrape the resulting HTML.

* Also, they prevent multiple usages of their service within a changing time frame. Due to this, all live tests against this service have been skipped.

* You have been warned. We suggest using another WWW::Shorten service.

A Perl interface to the web site http://shorl.com. That service simply maintains a database of long URLs, each of which has a unique identifier.

Functions ^

WWW::Shorten::Shorl makes the following functions available.

makeashorterlink

  my $short = try { makeashorterlink('http://www.example.com') } catch { warn $_ };

The function makeashorterlink will call use the web service, passing it your long URL and will return the shorter version. If used in a list context, then it will return both the shorter URL and the password.

Note that this service, unlike others, returns a unique code for every submission.

makealongerlink

  my $long = try { makealongerlink('abc11234234adfagv') } catch { warn $_ };

The function makealongerlink does the reverse. makealongerlink will accept as an argument either the full short URL or just the service's identifier.

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

AUTHOR ^

Iain Truskett <spoon@cpan.org>

CONTRIBUTORS ^

COPYRIGHT AND LICENSE ^

See the main WWW::Shorten docs.

SEE ALSO ^

WWW::Shorten, http://shorl.com/

syntax highlighting: