WebService::Bitlyというcpanモジュールを作った

　最近bit.lyのAPIを使うことがあって、それをうまく扱うようなcpanモジュールを探していたら、WWW:Shorten::Bitlyというモジュールが見つかった。ただ、このモジュールでは自分のやりたかった事が出来なかったので*1、もう少し汎用的なモジュールを作ってみました。

機能

bit.lyのAPIの

shorten
expand
validate
clicks
bitly_pro_domain
lookup
authenticate
info

をperlから扱う事が出来ます。つまり、URLを短くしたり、短いURLを長くしたり、クリック数の統計をとったりなどの機能を使う事が出来ます。。

利用例

use WebService::Bitly;

#インスタンス生成
my $bitly = WebService::Bitly->new(
    user_name => 'shibayu',
    user_api_key => 'R_1234567890abcdefg',
);

#shorten
my $result_shorten = $bitly->shorten('http://example.com/');
if ($result_shorten->is_error) {
    warn $result_shorten->status_code;
    warn $result_shorten->status_txt;
}
else {
    my $short_url = $result_shorten->short_url;
}

#expand
my $expand = $bitly->expand(
    short_urls => ['http://bit.ly/abcdef', 'http://bit.ly/fedcba'],
    hashes     => ['123456', '654321'],
);
if (!$expand->is_error) {
    for $result ($expand->results) {
        print $result->long_url if !$result->is_error;
    }
}