git によって僅かばかりやる気がでたので、WebService::LivedoorReader をちょっとだけ進めた。 とはいえ、前回作っていた状態とほぼ変化はなく、機能的にはむしろ退化したりしてる。 コンストラクタは内部にて WWW::Mechanize を構築する程度で、今後何をパラメータにするかを考えたいが、他の機能を実装するまで後回しにする予定。Moose 化も考えたものの、Moose の勉強に相当かかりそうな気がしたので、とりあえずハッシュベースで。 sub new { my ($class, $param) = @_; my $self = bless { mech => WWW::Mechanize->new, user => $param->{username}, pass => $param->{password}, }, $class; $self; } LDR の