LDR 用のモジュールを作り直します

つくりなおすっていったら作り直すんだ。
こんな感じのものを作るために、今度はちゃんとテスト書くんだ。

my $ldr = WebService::LivedoorReader->new( user => 'xxx', pass => 'yyy' );

# LDR に 'http://d.hatena.ne.jp/kiririmode/rss2' を登録
$ldr->discovery( url => 'http://d.hatena.ne.jp/kiririmode' )->[1]->subscribe;
# LDR から 'http://d.hatena.ne.jp/kiririmode/rss' を削除
$ldr->get_info( 'http://d.hatena.ne.jp' )->unsubscribe;

# 未読エントリに pin を立てる
$ldr->get_info( 'http://d.hatena.ne.jp/kiririmode' )->[1]->unread->pins;

ドキュメント書いて、CPAN にアップするんだ。