NAME

WWW::LongURL - Perl interface to the LongURL API.

SYNOPSIS

  use WWW::LongURL;

  my $longurl = WWW::LongURL->new();

  my $expanded_url = $longurl->expand('http://bit.ly/cZcYFn');
  if (! $expanded_url) {
      die $longurl->error(), "\n";
  }

  my @shortening_services = $longurl->get_services();
  if (! @shortening_services) {
      die $longurl->error(), "\n";
  }
  for my $service (@services) {
      binmode(STDOUT, ':utf8');
      print $service, "\n";
  }

DESCRIPTION

A simple interface for using the LongURL API to expand shortened URLs.

You can expand a bit.ly URL like so:

  my $url = $longurl->expand($some_bitly_url);

You can retrieve a list of shortening services supported by longurl like so:

  my @services = $longurl->get_services();

METHODS

new

Constructor

expand($url)

On success, will return the expanded URL from LongURL. On failure, returns undef.

get_services

On success, returns an array of shortening services that longurl.org supports. On failure, returns undef.

error

Returns the last error message.

SUPPORTED SHORTENING SERVICES

LongURL will expand the URL from over 200 supported shortening services.

See http://longurl.org/services

REPOSITORY

Development is on-going at: https://github.com/kevinspencer/WWW-LongURL

AUTHOR

Kevin Spencer, kspencer@cpan.org

COPYRIGHT

Copyright (c) 2011. Kevin Spencer

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.html

SEE ALSO

http://longurl.org/, http://longurl.org/api/