NAME

WWW::Shorten::ptl - interface to shorten URLs with http://p.tl/

SYNOPSIS

  use WWW::Shorten::ptl ();

  my $ptl = WWW::Shorten::ptl->new(apikey => $apikey);
  my $res = $ptl->shorten($url);
  my $shorturl = $res->{short_url} || die "failed to shorten $url";

  my $longurl = $ptl->extract($shorturl);

or

  use WWW::Shorten::ptl;

  my $shorturl = makeashorterlink($url, 'API-Key');
  my $url = makealongerlink($shorturl);

DESCRIPTION

WWW::Shorten::ptl provides interface to shorten URLs using http://p.tl/.

API KEY

As p.tl requires API-Key for each access using its APIs, you should apply your API-Key for p.tl to shorten URLs with this module.

you can get API-Key for p.tl at http://p.tl/key_create.php.

API-Key is required only for shortening URLs. URL extraction service doesn't need API-Key

OO INTERFACE

new([apikey => API-Key])

creates an instance of WWW::Shorten::ptl with given API-Key.

$obj->apikey([API-Key])

set or get API-Key for this instance.

$obj->shorten($url)

shorten $url, and returns HASHREF with following keys.

  status    -- see 'RESULT STATUS' section
  long_url  -- given (original) url
  short_url -- shortened url
  counter   -- # of requests in a period. (currently, api request is limited to 1000 calls/day)

dies if no API-Key is set.

RESULT STATUS

the 'status' should be one of below.

  'ok'                                                  -- url is successfully shortened 
  'empty long url'      -- input url is empty (should not occur when using this module)
  'empty API key'               -- API key is not specified (ditto.)
  'API limit'                           -- request limit exceeded.
  'invalid API key' -- given API key is invalid
  'invalid long url'-- given url cannot be shortened (that url may be already shortened)

$obj->extract($url)

returns extracted $url. or undef when $url is not a form of p.tl.

FUNCTION INTERFACE

As mentioned above, additional parameter API-Key is required for each shorten/expand functions.

makeashorterlink($url, API-Key)

returns shortened url. or undef when failed to shorten url.

makealongerlink($url)

returns expanded url for $url or undef when $url is not a form of p.tl

AUTHOR

turugina <turugina {at} cpan.org>

SEE ALSO

WWW::Shorten http://p.tl/ http://dev.pixiv.net/archives/1156026.html

LICENSE

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