Net::Twitpicを作ってみた

TwitpicのAPIv2を使用した画像アップロードのモジュールが見当たらなかったのでここを参照しながら試行錯誤してモジュールを作ってみました。

以下のように使用します。

use Net::Twitpic;
my $twitpic = Net::Twitpic->new(
    consumer_key     => 'YOUR-TWITTER-CONSUMER-KEY',
    consumer_secret => 'YOUR-TWITTER-CONSUMER-SECRET',
    token                     => 'OAUTH-TOKEN',
    token_secret         => 'OAUTH-TOKEN-SECRET',
    api_key                  => 'TWITPIC-API-KEY'
);

my $response = $twitpic->upload(
    message  => 'Hello',
    media       => 'file/to/path'
);

モジュールはgithubにアップしたのでここから入手してみてください。

• [2010-11-24 updated]

TwitpicのAPIにあわせるようにメソッド名をuploadに変更しました。