WebService::Hatena::Existの改良okかね

CPAN code search by gonzui

URI::Fetchを使ってる部分を検索したところ、
パラメータを渡すのにみんなこだわって無いみたいなので、
下で十分でしょ。


my $res = URI::Fetch::SimpleCache->fetch(
$get_url,
Cache => $self->{'Cache'},
Cache_root => $self->{'Cache_root'},
Cache_default_expires => $self->{'Cache_default_expires'},
UserAgent => $self->{'ua'},
) or return $self->error( URI::Fetch::SimpleCache->errstr );

ってことで時間が空いたらCPANにアプします。