WWW::Lengthen 0.01

WWW::Shortenのmakealongerlinkばかりをまとめたようなしろもの。使い方はこんな感じ。

use WWW::Lengthen;
my $l = WWW::Lenghten->new;
my $longer_url = $l->try($url);

これで、デフォルトでは0rz、Metamark (xrl.us)、NotLong、ShortenURL、Smallr、SnipURL、TinyURL、urlTeaの短いURLを長くできます。

キャッシュをきかせたいときはこんな感じで。

use WWW::Lengthen::Cached;
use Cache::Memcached;
my $l = WWW::Lenghten->new;
$l->setup_cached( Cached::Memcached->new );
my $longer_url = $l->try($url);

WWW::Shortenの更新が止まっているのと、そもそも短くするときはWWW::Shorten風の作り方でいいんですが、長くしたいときはたいてい同時に複数のサービスをサポートすることになるのでWWW::Shorten風のやり方だとちと面倒だというのがでっちあげた理由ですね。

例によってCodeReposにも入れてあります。