最近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', use