Tatsuhiko Miyagawa > WWW-Shorten-Simple > WWW::Shorten::Simple

Download:
WWW-Shorten-Simple-0.01.tar.gz

Dependencies

Annotate this POD

CPAN RT

New  1
Open  0
View/Report Bugs
Module Version: 0.01   Source  

NAME ^

WWW::Shorten::Simple - Factory wrapper around WWW::Shorten to avoid imports

SYNOPSIS ^

  use WWW::Shorten::Simple;

  my $svc = WWW::Shorten::Simple->new('TinyURL');
  my $short_url = $svc->shorten($long_url);
  my $canon_url = $svc->unshorten($short_url);

DESCRIPTION ^

WWW::Shorten::Simple is a wrapper (factory) around WWW::Shorten so that you can create an object representing each URL shortening service, instead of importing makeashorterlink function into your namespace.

This allows you to call multiple URL shortening services in one package, for instance to call WWW::Shorten::RevCanonical to extract rev="canonical", fallback to bit.ly if username and API key are present, and then finally to TinyURL.

  use WWW::Shorten::Simple;

  my @shorteners = (
      WWW::Shorten::Simple->new('RevCanonical'),
      WWW::Shorten::Simple->new('Bitly', $bitly_username, $bitly_api_key),
      WWW::Shorten::Simple->new('TinyURL'),
  );

  my $short_url;
  for my $shortener (@shorteners) {
      $short_url = eval { $shortener->shorten($long_url) } # eval to ignore errors
          and last;
  }

This wrapper works with most WWW::Shorten implementation that implements the default makeashorterlink and makealongerlink functions. The options should be able to be passed as an optional parameters to makeashorterlink function.

METHODS ^

new
  $svc = WWW::Shorten::Simple->new('TinyURL');
  $svc = WWW::Shorten::Simple->new('Bitly', $bitly_username, $bitly_api_key);

Creates a new WWW::Shoten::Simple object. Takes a subclass name and optional parameters to makeashorterlink call.

shorten
  my $short_url = $svc->shorten($url);

Shortens the given URL. Aliases: makeashorterlink, short_link

unshorten
  my $long_url = $svc->unshorten($short_url);

Unshortens the given URL. Aliases: makealongerlink, long_link

AUTHOR ^

Tatsuhiko Miyagawa <miyagawa@bulknews.net>

LICENSE ^

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

SEE ALSO ^

WWW::Shorten, WWW::Shorten::RevCanonical

syntax highlighting: