WebService::Hatena::AsinCount - Interface for Hatena::Bookmark:Asin's getCount XML-RPC API

WebService-Hatena-AsinCount documentation Contained in the WebService-Hatena-AsinCount distribution.

Index

Code Index:

NAME

Top

WebService::Hatena::AsinCount -- Interface for Hatena::Bookmark:Asin's getCount XML-RPC API

SYNOPSIS

Top

    use WebService::Hatena::AsinCount;
    my @list = (
        '4774124966',
        '4886487319'
    );
    my $hash = WebService::Hatena::AsinCount->getCount( @list );
    foreach my $url ( @list ) {
        printf( "%5d   %s\n", $hash->{$url}, $url );
    }

DESCRIPTION

Top

WebService::Hatena::AsinCount is a interface for "bookmark.getAsinCount" method provided by Hatena::Bookmark:Asin XML-RPC API. This module follows WebService-Hatena-BookmarkCount module. I respect the author very much and want to say 'thank you'.

METHODS

Top

$bgc = WebService::Hatena::AsinCount->new();

This constructor method creates a instance.

$hash = $bgc->getCount( @list );

This method make a call to "bookmark.getAsinCount" method of the Hatena Web Services. The arguments is list of Asin code to get a number of registrations in Hatena::Bookmark:Asin. This method returns a reference for a hash, which keys are Asin code and which values are counts returned by the Hatena Web Services.

$hash = WebService::Hatena::AsinCount->getCount( @list );

You can call this method directly without creating a instance.

MODULE DEPENDENCIES

Top

XML::TreePP LWP::UserAgent

AUTHOR

Top

Makoto Tanaka <tanaka.makoto@gmail.com>

COPYRIGHT AND LICENSE

Top

Copyright (c) 2006 Makoto Tanaka. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

WebService-Hatena-AsinCount documentation Contained in the WebService-Hatena-AsinCount distribution. 
# ----------------------------------------------------------------
    package WebService::Hatena::AsinCount;
    use strict;
    use Carp;
    use XML::TreePP;
# ----------------------------------------------------------------
    use vars qw( $VERSION $XMLRPC_URL );
    $VERSION = "0.02";
    $XMLRPC_URL = 'http://b.hatena.ne.jp/xmlrpc';
# ----------------------------------------------------------------


# ----------------------------------------------------------------
    my $TREEPP_OPTIONS = { force_array => [qw( member )] };
# ----------------------------------------------------------------
sub new {
    my $package = shift;
    my $self = {@_};
    bless $self, $package;
    $self->{treepp} = XML::TreePP->new( %$TREEPP_OPTIONS );
    $self;
}
# ----------------------------------------------------------------
sub getCount {
    my $self = shift;
    $self = $self->new() unless ref $self;
    my $list = \@_;
    my $reqtree = {
      methodCall => {
        methodName => "bookmark.getAsinCount",
        params => {
          param => [ map { {value=>{string =>$_}}; } @$list ]
        }
      }
    };
    my $reqxml = $self->{treepp}->write( $reqtree );
    my( $restree, $resxml ) = $self->{treepp}->parsehttp( POST => $XMLRPC_URL, $reqxml );
    my $outhash;
    if ( ref $restree &&
         ref $restree->{methodResponse} &&
         ref $restree->{methodResponse}->{params} &&
         ref $restree->{methodResponse}->{params}->{param} &&
         ref $restree->{methodResponse}->{params}->{param}->{value} &&
         ref $restree->{methodResponse}->{params}->{param}->{value}->{struct} &&
         ref $restree->{methodResponse}->{params}->{param}->{value}->{struct}->{member} ) {
        $outhash = {};
        foreach my $member ( @{$restree->{methodResponse}->{params}->{param}->{value}->{struct}->{member}}) {
            $outhash->{$member->{name}}= 0+$member->{value}->{int};
        }
    }
    wantarray ? ( $outhash, $reqxml, $resxml ) : $outhash;
}
# ----------------------------------------------------------------
;1;
# ----------------------------------------------------------------