File Coverage

blib/lib/WebService/Hatena/Exist.pm

Criterion	Covered	Total	%
statement	13	15	86.6
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	18	20	90.0

package WebService::Hatena::Exist;

use strict;
use warnings;
use base qw( Class::ErrorHandler );
use URI::Fetch::SimpleCache;
use XML::Simple;
use Readonly;

Readonly our $HATENA_URL => q[http://d.hatena.ne.jp/exist?mode=xml&url=];

our $VERSION = '0.02';
our $TARGET_URL;

sub new {
    my($class,$self)=(shift,{@_});
    bless($self,$class);

    $self->target_url( $self->{'url'} ) if $self->{'url'};

    $self;
}

sub target_url {
    my $self = shift;
    if(@_) { $TARGET_URL = shift }
    return $TARGET_URL;
}

sub bookmark {
    shift->{'parse_ref'}->{'count'}->{'bookmark'}->{'content'};
}

sub antenna {
    shift->{'parse_ref'}->{'count'}->{'antenna'}->{'content'};
}

sub diary {
    shift->{'parse_ref'}->{'count'}->{'diary'}->{'content'};
}

sub parse_ref {
    shift->{'parse_ref'};
}

sub feed {
    shift->{'feed'};
}

sub get_feed {
    my $self = shift;

    my $get_url = $HATENA_URL.$self->target_url;

    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 );

    $self->{'feed'}      = $res->content;
    $self->{'parse_ref'} = $self->parse_feed;

    $self->{'feed'};
}

sub parse_feed {
    XMLin(shift->{'feed'});
}

1;
__END__