Yet Another CPAN Grep

WWW-HatenaStar ( W/WO/WOREMACX/WWW-HatenaStar-0.04.tar.gz, WOREMACX, 2008; MetaCPAN )

WWW-HatenaStar/lib/WWW/HatenaStar.pm ( view source; MetaCPAN )

Class::Accessor::Fast);
__PACKAGE__->mk_accessors(qw(error));

use WWW::HatenaLogin;
use URI;
use JSON::Syck 'Load';
use Scalar::Util qw(blessed);
use Time::HiRes qw(sleep);

sub new {
    my ($class,

   }

    my $count = exists($data->{count}) ? $data->{count} : 0;

    my $res = $self->_entries_json($data->{uri});
    return undef unless $res;

    if ($count) {
        my $wait = exists($opt->{

f->_star_add_json($data);
            return undef unless $res;
            sleep($wait);

            $callback->($cur, $max) if $callback;
        }

        $res = $self->_entries_json($data->{uri}