WWW::Shorten::Google - Perl interface to goo.gl
use WWW::Shorten::Google;
use WWW::Shorten 'Google';
$short_url = makeashorterlink($long_url);
$long_url = makealongerlink($short_url);
WWW::Shorten::Google is Perl interface to the web api goo.gl.
The function makeashorterlink
will call the Google URL Shortener web site passing it your long URL and will return the shorter Google URL Shortener version.
The function makealongerlink
does the reverse. makealongerlink
will accept as an argument either the full Google URL Shortener URL or just the Google URL Shortener identifier.
If anything goes wrong, then either function will return undef
.
Kazuhiro Osawa <yappo <at> shibuya <döt> pl>
sunnavy
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
Hey! The above document had some coding errors, which are explained below:
- Around line 33:
-
Non-ASCII character seen before =encoding in '<döt>'. Assuming UTF-8