WebService-BuzzurlAPI-0.02/0000755000076400007640000000000010620373351014450 5ustar adminadminWebService-BuzzurlAPI-0.02/lib/0000755000076400007640000000000010620373351015216 5ustar adminadminWebService-BuzzurlAPI-0.02/lib/WebService/0000755000076400007640000000000010620373351017254 5ustar adminadminWebService-BuzzurlAPI-0.02/lib/WebService/BuzzurlAPI/0000755000076400007640000000000010620373351021263 5ustar adminadminWebService-BuzzurlAPI-0.02/lib/WebService/BuzzurlAPI/Util.pm0000644000076400007640000000255710620372543022551 0ustar adminadminpackage WebService::BuzzurlAPI::Util; =pod =head1 NAME WebService::BuzzurlAPI::Util - Buzzurl WebService API utility module =head1 VERSION 0.02 =head1 DESCRIPTION Buzzurl WebService API utility module =head1 METHOD =cut use strict; use base qw(Exporter); use Encode; our(@EXPORT_OK, $PKG_REGEXP, $VERSION); @EXPORT_OK = qw(drop_utf8flag urlencode); $PKG_REGEXP = qr/^WebService::BuzzurlAPI/; $VERSION = 0.02; =pod =head2 drop_utf8flag Drop utf8flag Example: my $str = WebService::BuzzurlAPI::Util::drop_utf8flag($utf8flagstr); =cut sub drop_utf8flag { my $str = (scalar @_ == 2 && (ref($_[0]) =~ $PKG_REGEXP || $_[0] =~ $PKG_REGEXP)) ? $_[1] : $_[0]; if($str ne "" && Encode::is_utf8($str)){ $str = Encode::encode_utf8($str); } return $str; } =pod =head2 urlencode URLEncoding Example: my $str = WebService::BuzzurlAPI::Util::urlencode($str); =cut sub urlencode { my $str = (scalar @_ == 2 && (ref($_[0]) =~ $PKG_REGEXP || $_[0] =~ $PKG_REGEXP)) ? $_[1] : $_[0]; if($str ne ""){ $str =~ s/([^\w ])/"%" . unpack("H2", $1)/eg; $str =~ tr/ /+/; } return $str; } 1; __END__ =head1 SEE ALSO L =head1 AUTHOR Akira Horimoto =head1 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. =cut WebService-BuzzurlAPI-0.02/lib/WebService/BuzzurlAPI/Request/0000755000076400007640000000000010620373351022713 5ustar adminadminWebService-BuzzurlAPI-0.02/lib/WebService/BuzzurlAPI/Request/RecentArticles.pm0000644000076400007640000000131710620372676026173 0ustar adminadminpackage WebService::BuzzurlAPI::Request::RecentArticles; use strict; use base qw(WebService::BuzzurlAPI::Request::Base); our($NUM, $OF, $THRESHOLD, $VERSION); $NUM = 5; $OF = 0; $THRESHOLD = 0; $VERSION = 0.02; sub filter_param { my($self, $param) = @_; $param->{num} = $NUM if !$param->{num} || $param->{num} =~ /[^\d]/; $param->{of} = $OF if !$param->{of} || $param->{of} =~ /[^\d]/; $param->{threshold} = $THRESHOLD if !$param->{threshold} || $param->{threshold} =~ /[^\d]/; } sub make_request_url { my($self, $param) = @_; my $path = sprintf $self->uri->path, "articles/recent"; $self->uri->path($path); $self->uri->query_form($param); } 1; WebService-BuzzurlAPI-0.02/lib/WebService/BuzzurlAPI/Request/Favorites.pm0000644000076400007640000000066010620372413025213 0ustar adminadminpackage WebService::BuzzurlAPI::Request::Favorites; use strict; use base qw(WebService::BuzzurlAPI::Request::Base); our $VERSION = 0.02; sub filter_param { my($self, $param) = @_; $param->{userid} = $self->drop_utf8flag($param->{userid}); } sub make_request_url { my($self, $param) = @_; my $path = sprintf $self->uri->path, "favorites"; $path .= "/" . $param->{userid}; $self->uri->path($path); } 1; WebService-BuzzurlAPI-0.02/lib/WebService/BuzzurlAPI/Request/Readers.pm0000644000076400007640000000065510620372434024645 0ustar adminadminpackage WebService::BuzzurlAPI::Request::Readers; use strict; use base qw(WebService::BuzzurlAPI::Request::Base); our $VERSION = 0.02; sub filter_param { my($self, $param) = @_; $param->{userid} = $self->drop_utf8flag($param->{userid}); } sub make_request_url { my($self, $param) = @_; my $path = sprintf $self->uri->path, "readers"; $path .= "/" . $param->{userid}; $self->uri->path($path); } 1; WebService-BuzzurlAPI-0.02/lib/WebService/BuzzurlAPI/Request/UrlInfo.pm0000644000076400007640000000065010620372705024632 0ustar adminadminpackage WebService::BuzzurlAPI::Request::UrlInfo; use strict; use base qw(WebService::BuzzurlAPI::Request::Base); our $VERSION = 0.02; sub filter_param { my($self, $param) = @_; $param->{url} = $self->drop_utf8flag($param->{url}); } sub make_request_url { my($self, $param) = @_; my $path = sprintf $self->uri->path, "posts/get"; $self->uri->path($path); $self->uri->query_form($param); } 1; WebService-BuzzurlAPI-0.02/lib/WebService/BuzzurlAPI/Request/KeywordArticles.pm0000644000076400007640000000106110620372425026363 0ustar adminadminpackage WebService::BuzzurlAPI::Request::KeywordArticles; use strict; use base qw(WebService::BuzzurlAPI::Request::Base); our $VERSION = 0.02; sub filter_param { my($self, $param) = @_; $param->{userid} = $self->drop_utf8flag($param->{userid}); $param->{keyword} = $self->urlencode($self->drop_utf8flag($param->{keyword})); } sub make_request_url { my($self, $param) = @_; my $path = sprintf $self->uri->path, "articles"; $path .= "/" . join "/", $param->{userid}, "keyword", $param->{keyword}; $self->uri->path($path); } 1; WebService-BuzzurlAPI-0.02/lib/WebService/BuzzurlAPI/Request/BookmarkCount.pm0000644000076400007640000000153210620372404026026 0ustar adminadminpackage WebService::BuzzurlAPI::Request::BookmarkCount; use strict; use base qw(WebService::BuzzurlAPI::Request::Base); use Readonly; our $VERSION = 0.02; Readonly my $URL_MAX => 30; sub filter_param { my($self, $param) = @_; if(exists $param->{url}){ if(ref($param->{url}) eq "ARRAY"){ if(scalar @{$param->{url}} > $URL_MAX){ my @tmp = splice @{$param->{url}}, 0, $URL_MAX; $param->{url} = \@tmp; } $param->{url} = [ map { $self->drop_utf8flag($_) } @{$param->{url}} ]; }else{ $param->{url} = $self->drop_utf8flag($param->{url}); } } } sub make_request_url { my($self, $param) = @_; my $path = sprintf $self->uri->path, "counter"; $self->uri->path($path); $self->uri->query_form($param); } 1; WebService-BuzzurlAPI-0.02/lib/WebService/BuzzurlAPI/Request/Base.pm0000644000076400007640000000057010620372334024125 0ustar adminadminpackage WebService::BuzzurlAPI::Request::Base; use strict; use warnings; use base qw(WebService::BuzzurlAPI::Request); use Carp; our $VERSION = 0.02; sub filter_param { my($self, $param) = @_; } sub make_request_url { my($self, $param) = @_; return; } sub make_request_content { my($self, $param) = @_; return; } sub is_post_request { 0 } 1; WebService-BuzzurlAPI-0.02/lib/WebService/BuzzurlAPI/Request/UserArticles.pm0000644000076400007640000000066310620372712025663 0ustar adminadminpackage WebService::BuzzurlAPI::Request::UserArticles; use strict; use base qw(WebService::BuzzurlAPI::Request::Base); our $VERSION = 0.02; sub filter_param { my($self, $param) = @_; $param->{userid} = $self->drop_utf8flag($param->{userid}); } sub make_request_url { my($self, $param) = @_; my $path = sprintf $self->uri->path, "articles"; $path .= "/" . $param->{userid}; $self->uri->path($path); } 1; WebService-BuzzurlAPI-0.02/lib/WebService/BuzzurlAPI/Request/Add.pm0000644000076400007640000000273510620372344023751 0ustar adminadminpackage WebService::BuzzurlAPI::Request::Add; use strict; use base qw(WebService::BuzzurlAPI::Request::Base); use Readonly; our $VERSION = 0.02; Readonly my $KEYWORD_MAX => 8; Readonly my $REALM => "API AUTH"; sub filter_param { my($self, $param) = @_; $param->{url} = $self->drop_utf8flag($param->{url}); $param->{title} = $self->drop_utf8flag($param->{title}) if exists $param->{title}; $param->{comment} = $self->drop_utf8flag($param->{comment}) if exists $param->{comment}; if(exists $param->{keyword}){ if(ref($param->{keyword}) eq "ARRAY"){ if(scalar @{$param->{keyword}} > $KEYWORD_MAX){ my @tmp = splice @{$param->{keyword}}, 0, $KEYWORD_MAX; $param->{keyword} = \@tmp; } $param->{keyword} = [ map { $self->drop_utf8flag($_) } @{$param->{keyword}} ]; }else{ $param->{keyword} = $self->drop_utf8flag($param->{keyword}); } } } sub make_request_url { my($self, $param) = @_; $self->uri->scheme("https"); $self->uri->host("buzzurl.jp"); $self->uri->path("/posts/add/v1"); # for basic auth my $netloc = sprintf "%s:%d", $self->uri->host, $self->uri->port; $self->buzz->ua->credentials($netloc, $REALM, $self->buzz->email ,$self->buzz->password); } sub make_request_content { my($self, $param) = @_; my $uri = $self->uri->clone; $uri->query_form($param); return $uri->query; } sub is_post_request { 1 } 1; WebService-BuzzurlAPI-0.02/lib/WebService/BuzzurlAPI/Response.pm0000644000076400007640000000425110620372602023417 0ustar adminadminpackage WebService::BuzzurlAPI::Response; =pod =head1 NAME WebService::BuzzurlAPI::Response - Buzzurl WebService API response package =head1 VERSION 0.02 =head1 DESCRIPTION Buzzurl WebService API response package =head1 METHOD =cut use strict; use base qw(Class::Accessor); use JSON::Syck; __PACKAGE__->mk_accessors(qw(errstr)); __PACKAGE__->mk_ro_accessors(qw(json res)); our $VERSION = 0.02; =pod =head2 new Create instance =cut sub new { my($class, $res) = @_; if(ref($res) ne "HTTP::Response"){ croak("\$res is not \"HTTP::Response\" object"); } return bless { json => undef, res => $res }, $class || ref $class; } =pod =head2 analysis_response Analysis http response =cut sub analysis_response { my $self = shift; my $json; # response check # for WebService::BuzzurlAPI::Request::Add and if(!$self->res->is_success){ return $self->_error($self->res->code, $self->res->message); } # for redirect error if($self->res->content_type !~ /^application\/json/){ return $self->_error(0, "invalid_param [" . $self->res->previous->request->uri . "]" ); } $json = JSON::Syck::Load($self->res->content); # faild json check # for WebService::BuzzurlAPI::Request::Add if(ref($json) eq "HASH" && exists $json->{status} && $json->{status} ne "success"){ return $self->_error(999, $json->{status} . " " . $json->{reason}); } $self->{json} = $json; return 1; } =head2 is_success Check response =cut sub is_success { return shift->res->is_success ? 1 : 0; } =head2 _error Set error code and message =cut sub _error { my($self, $code, $message) = @_; $self->res->code($code); $self->res->message($message); $self->errstr($message); return 0; } 1; __END__ =head1 ACCESSOR METHOD =head2 errstr Get/Set error message =head2 json Get json2refrence(Readonly) =head2 res Get HTTP::Response instance(Readonly) =head1 SEE ALSO L L =head1 AUTHOR Akira Horimoto =head1 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. =cut WebService-BuzzurlAPI-0.02/lib/WebService/BuzzurlAPI/Request.pm0000644000076400007640000000413010620372614023250 0ustar adminadminpackage WebService::BuzzurlAPI::Request; =pod =head1 NAME WebService::BuzzurlAPI::Request - Buzzurl WebService API request package =head1 VERSION 0.02 =head1 DESCRIPTION Buzzurl WebService API request package =head1 METHOD =cut use strict; use base qw(Class::Accessor); use Carp; use HTTP::Request; use Readonly; use WebService::BuzzurlAPI::Util qw(drop_utf8flag urlencode); __PACKAGE__->mk_ro_accessors(qw(buzz uri)); our $VERSION = 0.02; Readonly my @OVERRIDE_METHOD => qw( filter_param make_request_url make_request_content is_post_request ); sub import { my $class = shift; { no strict "refs"; map { *{$_} = sub { croak("\"$_\" abstract method!") } } @OVERRIDE_METHOD; } } =pod =head2 new Create instance =cut sub new { my($class, %args) = @_; if(ref($args{buzz}) ne "WebService::BuzzurlAPI"){ croak("buzz is not \"WebService::BuzzurlAPI\" object"); } return bless \%args, $class || ref $class; } =head2 request Access API. return HTTP::Response instance =cut sub request { my($self, %param) = @_; $self->filter_param(\%param); $self->make_request_url(\%param); my @option = ($self->is_post_request) ? ( "POST", $self->uri->as_string, [ "Content-Type", "application/x-www-form-urlencoded" ], $self->make_request_content(\%param) ) : ( "GET", $self->uri->as_string ); return $self->buzz->ua->request(HTTP::Request->new(@option)); } 1; __END__ =head1 ABSTRACT METHOD =head2 filter_param =head2 make_request_url =head2 make_request_content =head2 is_post_request =head1 ACCESSOR METHOD =head2 buzz Get WebService::BuzzurlAPI instance(Readonly) =head1 SEE ALSO L L L =head1 AUTHOR Akira Horimoto =head1 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. =cut WebService-BuzzurlAPI-0.02/lib/WebService/BuzzurlAPI.pm0000644000076400007640000001567510620372533021640 0ustar adminadminpackage WebService::BuzzurlAPI; =pod =head1 NAME WebService::BuzzurlAPI - Buzzurl WebService API =head1 VERSION 0.02 =head1 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; } =head1 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/ =cut use strict; use warnings; use base qw(Class::Accessor); use Carp; use LWP::UserAgent; use Readonly; use UNIVERSAL::require; use URI; use WebService::BuzzurlAPI::Response; __PACKAGE__->mk_accessors(qw(email password)); __PACKAGE__->mk_ro_accessors(qw(ua)); our $VERSION = 0.02; Readonly my $API_URL_FORMAT => "http://api.buzzurl.jp/api/%s/v1/json"; Readonly my %ALIAS_PACKAGE => ( readers => "Readers", favorites => "Favorites", url_info => "UrlInfo", # counter redirect image api not supported # counter => "Counter", bookmark_count => "BookmarkCount", user_articles => "UserArticles", recent_articles => "RecentArticles", keyword_articles => "KeywordArticles", add => "Add" ); sub import { no strict "refs"; foreach my $method(keys %ALIAS_PACKAGE){ *{$method} = sub { my($self, %args) = @_; my $pkg = sprintf "%s::Request::%s", __PACKAGE__, $ALIAS_PACKAGE{$method}; $pkg->require or croak($UNIVERSAL::require::ERROR); my $req = $pkg->new( buzz => $self, uri => URI->new($API_URL_FORMAT) ); my $res = WebService::BuzzurlAPI::Response->new($req->request(%args)); $res->analysis_response; return $res; }; } } =pod =head1 METHOD =head2 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"); =cut sub new { my($class, %args) = @_; my $ua = LWP::UserAgent->new; $ua->agent(sprintf "%s/%f", __PACKAGE__, $VERSION); return bless { email => $args{email}, password => $args{password}, ua => $ua, }, $class || ref($class); } =pod =head2 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... } } =head2 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... } } =head2 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... } =head2 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... } } =head2 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... } } =head2 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... } } =head2 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... } } =head2 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; } =head1 ACCESSOR METHOD =head2 email Get/Set login email Example: $buzz->email("your email"); my $email = $buzz->email; =head2 password Get/Set login password Example: $buzz->password("your password"); my $password = $buzz->password; =head2 ua Get LWP::UserAgent instance(Readonly) Example: # LWP::UserAgent::timeout $buzz->ua->timeout(30); # LWP::UserAgent::env_proxy $buzz->ua->env_proxy; =cut 1; __END__ =head1 SEE ALSO L L L L L =head1 AUTHOR Akira Horimoto =head1 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. =cut WebService-BuzzurlAPI-0.02/Changes0000644000076400007640000000074410620373273015753 0ustar adminadminRevision history for Perl extension WebService::BuzzurlAPI. 0.02 Thu May 10 01:25:00 2007 - WebService::BuzzurlAPI; delete $AUTOLOAD valiable WebService::BuzzurlAPI::Request::Base; delete valid_param_prepare subroutine WebService::BuzzurlAPI::Request::KeywordArticles; add $VERSION = 0.02 0.01 Tue May 9 22:20:50 2007 - original version; created by h2xs 1.23 with options -A -X -n WebService::BuzzurlAPI WebService-BuzzurlAPI-0.02/t/0000755000076400007640000000000010620373351014713 5ustar adminadminWebService-BuzzurlAPI-0.02/t/01-method.t0000644000076400007640000000042710620115535016577 0ustar adminadmin use Test::More tests => 2; use strict; use WebService::BuzzurlAPI; my $buzz = WebService::BuzzurlAPI->new; # accessor method can_ok($buzz, qw(email password)); # request method can_ok($buzz, qw(url_info readers favorites user_articles recent_articles bookmark_count add)); WebService-BuzzurlAPI-0.02/t/09-add.t0000644000076400007640000000164410620122103016046 0ustar adminadmin use Test::More skip_all => "At present, add bookmark api test does skip"; use strict; use WebService::BuzzurlAPI; SKIP: { if(!$ENV{BUZZURL_EMAIL} || !$ENV{BUZZURL_PASSWORD}){ warn "\$ENV{BUZZURL_EMAIL} or \$ENV{BUZZURL_PASSWORD} is not exported"; skip "\$ENV{BUZZURL_EMAIL} or \$ENV{BUZZURL_PASSWORD} is not exported", 1; } my $buzz = WebService::BuzzurlAPI->new( email => $ENV{BUZZURL_EMAIL}, password => $ENV{BUZZURL_PASSWORD} ); my $res = $buzz->add( url => "http://buzzurl.jp/", title => "my bookmark title", comment => "my bookmark comment", keyword => [ "my keyword1", "my keyword2" ); ok($res->is_success); } # end SKIP BLOCK WebService-BuzzurlAPI-0.02/t/04-favorites.t0000644000076400007640000000060510620120022017305 0ustar adminadmin use Test::More qw(no_plan); use strict; use WebService::BuzzurlAPI; SKIP: { if(!$ENV{BUZZURL_USERID}){ warn "\$ENV{BUZZURL_USERID} is not exported"; skip "\$ENV{BUZZURL_USERID} is not exported", 1; } my $buzz = WebService::BuzzurlAPI->new; my $res = $buzz->favorites( userid => $ENV{BUZZURL_USERID} ); ok($res->is_success); } # end SKIP BLOCK WebService-BuzzurlAPI-0.02/t/02-url_info.t0000644000076400007640000000027610620115733017137 0ustar adminadmin use Test::More tests => 1; use strict; use WebService::BuzzurlAPI; my $buzz = WebService::BuzzurlAPI->new; my $res = $buzz->url_info(url => "http://buzzurl.jp/"); ok($res->is_success); WebService-BuzzurlAPI-0.02/t/03-readers.t0000644000076400007640000000060310620117137016742 0ustar adminadmin use Test::More qw(no_plan); use strict; use WebService::BuzzurlAPI; SKIP: { if(!$ENV{BUZZURL_USERID}){ warn "\$ENV{BUZZURL_USERID} is not exported"; skip "\$ENV{BUZZURL_USERID} is not exported", 1; } my $buzz = WebService::BuzzurlAPI->new; my $res = $buzz->readers( userid => $ENV{BUZZURL_USERID} ); ok($res->is_success); } # end SKIP BLOCK WebService-BuzzurlAPI-0.02/t/00-use.t0000644000076400007640000000075510617652452016130 0ustar adminadmin# Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl WebService-BuzzurlAPI.t' ######################### # change 'tests => 1' to 'tests => last_test_to_print'; use Test::More tests => 1; BEGIN { use_ok('WebService::BuzzurlAPI') }; ######################### # Insert your test code below, the Test::More module is use()ed here so read # its man page ( perldoc Test::More ) for help writing this test script. WebService-BuzzurlAPI-0.02/t/06-recent_articles.t0000644000076400007640000000031410620120473020462 0ustar adminadmin use Test::More tests => 1; use strict; use WebService::BuzzurlAPI; my $buzz = WebService::BuzzurlAPI->new; my $res = $buzz->recent_articles( num => 1, of => 0, threshold => 0 ); ok($res->is_success); WebService-BuzzurlAPI-0.02/t/08-bookmark_count.t0000644000076400007640000000030410620120771020333 0ustar adminadmin use Test::More tests => 1; use strict; use WebService::BuzzurlAPI; my $buzz = WebService::BuzzurlAPI->new; my $res = $buzz->bookmark_count( url => "http://buzzurl.jp" ); ok($res->is_success); WebService-BuzzurlAPI-0.02/t/07-keyword_articles.t0000644000076400007640000000063310620123034020667 0ustar adminadmin use Test::More qw(no_plan); use strict; use WebService::BuzzurlAPI; SKIP: { if(!$ENV{BUZZURL_USERID}){ warn "\$ENV{BUZZURL_USERID} is not exported"; skip "\$ENV{BUZZURL_USERID} is not exported", 1; } my $buzz = WebService::BuzzurlAPI->new; my $res = $buzz->keyword_articles( userid => $ENV{BUZZURL_USERID}, keyword => "" ); ok($res->is_success); } # end SKIP BLOCK WebService-BuzzurlAPI-0.02/t/05-user_articles.t0000644000076400007640000000061110620120136020153 0ustar adminadmin use Test::More qw(no_plan); use strict; use WebService::BuzzurlAPI; SKIP: { if(!$ENV{BUZZURL_USERID}){ warn "\$ENV{BUZZURL_USERID} is not exported"; skip "\$ENV{BUZZURL_USERID} is not exported", 1; } my $buzz = WebService::BuzzurlAPI->new; my $res = $buzz->user_articles( userid => $ENV{BUZZURL_USERID} ); ok($res->is_success); } # end SKIP BLOCK WebService-BuzzurlAPI-0.02/README0000644000076400007640000001306710620372733015342 0ustar adminadminNAME 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. WebService-BuzzurlAPI-0.02/META.yml0000664000076400007640000000101610620373351015721 0ustar adminadmin# http://module-build.sourceforge.net/META-spec.html #XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX# name: WebService-BuzzurlAPI version: 0.02 version_from: lib/WebService/BuzzurlAPI.pm installdirs: site requires: Class::Accessor: 0.25 JSON::Syck: 0.21 LWP::UserAgent: 2.032 Readonly: 1.01 UNIVERSAL::require: 0.1 distribution_type: module generated_by: ExtUtils::MakeMaker version 6.30 WebService-BuzzurlAPI-0.02/MANIFEST0000644000076400007640000000152510620373351015604 0ustar adminadminChanges Makefile.PL MANIFEST README t/00-use.t t/01-method.t t/02-url_info.t t/03-readers.t t/04-favorites.t t/05-user_articles.t t/06-recent_articles.t t/07-keyword_articles.t t/08-bookmark_count.t t/09-add.t lib/WebService/BuzzurlAPI.pm lib/WebService/BuzzurlAPI/Request.pm lib/WebService/BuzzurlAPI/Response.pm lib/WebService/BuzzurlAPI/Util.pm lib/WebService/BuzzurlAPI/Request/Add.pm lib/WebService/BuzzurlAPI/Request/Base.pm lib/WebService/BuzzurlAPI/Request/BookmarkCount.pm lib/WebService/BuzzurlAPI/Request/Favorites.pm lib/WebService/BuzzurlAPI/Request/KeywordArticles.pm lib/WebService/BuzzurlAPI/Request/Readers.pm lib/WebService/BuzzurlAPI/Request/RecentArticles.pm lib/WebService/BuzzurlAPI/Request/UrlInfo.pm lib/WebService/BuzzurlAPI/Request/UserArticles.pm META.yml Module meta-data (added by MakeMaker) WebService-BuzzurlAPI-0.02/Makefile.PL0000644000076400007640000000157010617654160016433 0ustar adminadminuse 5.008008; use ExtUtils::MakeMaker; # See lib/ExtUtils/MakeMaker.pm for details of how to influence # the contents of the Makefile that is written. WriteMakefile( NAME => 'WebService::BuzzurlAPI', VERSION_FROM => 'lib/WebService/BuzzurlAPI.pm', # finds $VERSION PREREQ_PM => { "Class::Accessor" => 0.25, "JSON::Syck" => 0.21, "LWP::UserAgent" => 2.032, "Readonly" => 1.01, "UNIVERSAL::require" => 0.10, }, # e.g., Module::Name => 1.1 ($] >= 5.005 ? ## Add these new keywords supported since 5.005 (ABSTRACT_FROM => 'lib/WebService/BuzzurlAPI.pm', # retrieve abstract from module AUTHOR => 'Akira Horimoto ') : ()), );