Net::Technorati書いた

テクノラティのAPIを使うためのモジュールはすでにWebService::Technoratiというのがあるんだけど。
WebService::Technorati - a Perl interface to the Technorati web services interface - metacpan.org
使い方がよくわからないんで自分で書いてみました。
http://takatoshi.dyndns.org/trac/tktsh/browser/Net-Technorati/trunk
使い方。キーワード検索の場合。

#!/usr/bin/perl
use strict;
use warnings;
use Net::Technorati;
use YAML;

my $api_key = shift;
my $query = shift;
my $tapi = Net::Technorati->new({
    api_key => $api_key,
    language => 'ja',
});
my $res = $tapi->search({
    query => $query,
});

print Dump $res->list;

$ ./search.pl api_key keyword

実装方法はWebService::Gnaviを参考にさせていただきました。
WebService::Gnavi - Use Gnavi API From Perl - metacpan.org
日本語のサイトにはキーワード検索とURL検索しか載ってないけど英語のサイトを見ると他にもタグ検索とかあるのでそれも実装済みです。
http://www.technorati.jp/developers/api/
http://www.technorati.com/developers/api/
ドキュメントは全く書いてません。。