Kevin Spencer > WWW-LongURL > WWW::LongURL

Download:
WWW-LongURL-0.05.tar.gz

Dependencies

Annotate this POD

View/Report Bugs
Module Version: 0.05   Source  

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/

syntax highlighting: