Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Read-only release history for WebService-BuzzurlAPI
Perl

Fetching latest commit…

Cannot retrieve the latest commit at this time

Failed to load latest commit information.
lib/WebService
t
Changes
MANIFEST
META.yml
Makefile.PL
README

README

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.

Something went wrong with that request. Please try again.