NAME

WebService::BuzzurlAPI - Buzzurl WebService API

VERSION

0.02

SYNOPSIS

use WebService::BuzzurlAPI;
use strict;

my $buzz = WebService::BuzzurlAPI->new(email => "your email", password => "your password");
# readers api
my $res = $buzz->readers( userid => "your userid" );
if($res->is_success){
    my $json = $res->json;
    # do something
}else{
    die $res->errstr;
}

DESCRIPTION

Buzzurl is social bookmark service.

For more information on Buzzurl, visit the Buzzurl website. http://buzzurl.jp/.

API Reference. http://labs.ecnavi.jp/developer/buzzurl/api/

METHOD

new

Create instance

Option:

email    : your login email(require when add api)
password : your login password(require when add api)

Example:

my $buzz = WebService::BuzzurlAPI->new(email => "your email", password => "your password");

readers

Get readers userid

Options:

userid  : userid(require)

Example:

my $res = $buzz->readers( userid => "userid" );
if($res->is_success){
  foreach my $userid(@{$res->json}){
      # do something...
  }
}

favorites

Get favorites userid

Options:

userid  : userid(require)

Example:

my $res = $buzz->favorites( userid => "userid" );
if($res->is_success){  
  foreach my $userid(@{$res->json}){
      # do something...
  }
}

url_info

Get url info

Options:

url    : url(require)

Example:

my $res = $buzz->url_info( url => "http://your.wanted.domain/" );
if($res->is_success){
   my $urlinfo = shift @{$res->json};
   my $url = $urlinfo->{url};
   my $title = $urlinfo->{title};
   my $user_num = $urlinfo->{user_num};
   foreach my $ref(@{$userinfo->{posts}}){
      my $keywords = $ref->{keywords};
      my $comment = $ref->{comment};
      my $date = $ref->{date};
      my $user_name = $ref->{user_name};
   }
   # do something...
}

bookmark_count

Get bookmark count

Options:

url   : url(require max:30)

Example:

my $res = $buzz->bookmark_count( url => "http://your.wanted.domain" );
# multiple
# my $res = $buzz->bookmark_count( url => [ "http://your.wanted.domain", "http://your.wanted.domain2" ] );
if($res->is_success){  
  foreach my $ref(@{$res->json}){
      my $url = $ref->{url};
      my $title = $ref->{title};
      my $users = $ref->{users};
      # do something...
  }
}

user_articles

Get user articles

Options:

userid  : userid(require)

Example:

my $res = $buzz->user_articles( userid => "userid" );
if($res->is_success){  
  foreach my $ref(@{$res->json}){
      my $url = $ref->{url};
      my $title = $ref->{title};
      my $comment = $ref->{comment};
      my $keywords = $ref->{keywords};
      # do something...
  }
}

recent_articles

Get recent articles

Options:

num       : get number(default:5)
of        : page number(default:0)
threshold : bookmark count threshold(default:0)

Example:

my $res = $buzz->recent_articles( num => 0, of => 1, threshold => 3 );
if($res->is_success){  
  foreach my $ref(@{$res->json}){
      my $url = $ref->{url};
      my $title = $ref->{title};
      my $user_num = $ref->{user_num};
      my $user_id = $ref->{user_id};
      my $register_date = $ref->{register_date};
      # do something...
  }
}

keyword_articles

Get keyword articles

Options:

userid  : userid(require)
keyword : keyword string(require)

Example:

my $res = $buzz->keyword_articles( userid => "userid", keyword => "keyword string" );
if($res->is_success){  
  foreach my $ref(@{$res->json}){
      my $url = $ref->{url};
      my $title = $ref->{title};
      my $user_num = $ref->{user_num};
      my $user_id = $ref->{user_id};
      my $register_date = $ref->{register_date};
      # do something...
  }
}

add

Add my bookmark(https + basic auth access)

Options:

url     : bookmark url(require)
title   : bookmark title
comment : bookmark comment
keyword : bookmark keyword(max:8)

Example:

my $res = $buzz->add(
           url     => "http://your.register.domain/",
           title   => "my bookmark title",
           comment => "my bookmark comment",
           keyword => "my keyword",
           # multiple keyword
           keyword => [ "my keyword", "my keyword2" ],
          );
if($res->is_success){
  print $res->json->{status} . "\n";
}else{
  die $res->errstr;
}

ACCESSOR METHOD

email

Get/Set login email

Example:

$buzz->email("your email");
my $email = $buzz->email;

password

Get/Set login password

Example:

$buzz->password("your password");
my $password = $buzz->password;

ua

Get LWP::UserAgent instance(Readonly)

Example:

# LWP::UserAgent::timeout
$buzz->ua->timeout(30);
# LWP::UserAgent::env_proxy
$buzz->ua->env_proxy;

SEE ALSO

Class::Accessor LWP::UserAgent Readonly UNIVERSAL::require URI

AUTHOR

Akira Horimoto

COPYRIGHT

Copyright (C) 2007 Akira Horimoto

This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

cpanm WebService::BuzzurlAPI

perl -MCPAN -e shell
install WebService::BuzzurlAPI