README
1NAME
2 WebService::BuzzurlAPI - Buzzurl WebService API
3
4VERSION
5 0.02
6
7SYNOPSIS
8 use WebService::BuzzurlAPI;
9 use strict;
10
11 my $buzz = WebService::BuzzurlAPI->new(email => "your email", password => "your password");
12 # readers api
13 my $res = $buzz->readers( userid => "your userid" );
14 if($res->is_success){
15 my $json = $res->json;
16 # do something
17 }else{
18 die $res->errstr;
19 }
20
21DESCRIPTION
22 Buzzurl is social bookmark service.
23
24 For more information on Buzzurl, visit the Buzzurl website.
25 http://buzzurl.jp/.
26
27 API Reference. http://labs.ecnavi.jp/developer/buzzurl/api/
28
29METHOD
30 new
31 Create instance
32
33 Option:
34
35 email : your login email(require when add api)
36 password : your login password(require when add api)
37
38 Example:
39
40 my $buzz = WebService::BuzzurlAPI->new(email => "your email", password => "your password");
41
42 readers
43 Get readers userid
44
45 Options:
46
47 userid : userid(require)
48
49 Example:
50
51 my $res = $buzz->readers( userid => "userid" );
52 if($res->is_success){
53 foreach my $userid(@{$res->json}){
54 # do something...
55 }
56 }
57
58 favorites
59 Get favorites userid
60
61 Options:
62
63 userid : userid(require)
64
65 Example:
66
67 my $res = $buzz->favorites( userid => "userid" );
68 if($res->is_success){
69 foreach my $userid(@{$res->json}){
70 # do something...
71 }
72 }
73
74 url_info
75 Get url info
76
77 Options:
78
79 url : url(require)
80
81 Example:
82
83 my $res = $buzz->url_info( url => "http://your.wanted.domain/" );
84 if($res->is_success){
85 my $urlinfo = shift @{$res->json};
86 my $url = $urlinfo->{url};
87 my $title = $urlinfo->{title};
88 my $user_num = $urlinfo->{user_num};
89 foreach my $ref(@{$userinfo->{posts}}){
90 my $keywords = $ref->{keywords};
91 my $comment = $ref->{comment};
92 my $date = $ref->{date};
93 my $user_name = $ref->{user_name};
94 }
95 # do something...
96 }
97
98 bookmark_count
99 Get bookmark count
100
101 Options:
102
103 url : url(require max:30)
104
105 Example:
106
107 my $res = $buzz->bookmark_count( url => "http://your.wanted.domain" );
108 # multiple
109 # my $res = $buzz->bookmark_count( url => [ "http://your.wanted.domain", "http://your.wanted.domain2" ] );
110 if($res->is_success){
111 foreach my $ref(@{$res->json}){
112 my $url = $ref->{url};
113 my $title = $ref->{title};
114 my $users = $ref->{users};
115 # do something...
116 }
117 }
118
119 user_articles
120 Get user articles
121
122 Options:
123
124 userid : userid(require)
125
126 Example:
127
128 my $res = $buzz->user_articles( userid => "userid" );
129 if($res->is_success){
130 foreach my $ref(@{$res->json}){
131 my $url = $ref->{url};
132 my $title = $ref->{title};
133 my $comment = $ref->{comment};
134 my $keywords = $ref->{keywords};
135 # do something...
136 }
137 }
138
139 recent_articles
140 Get recent articles
141
142 Options:
143
144 num : get number(default:5)
145 of : page number(default:0)
146 threshold : bookmark count threshold(default:0)
147
148 Example:
149
150 my $res = $buzz->recent_articles( num => 0, of => 1, threshold => 3 );
151 if($res->is_success){
152 foreach my $ref(@{$res->json}){
153 my $url = $ref->{url};
154 my $title = $ref->{title};
155 my $user_num = $ref->{user_num};
156 my $user_id = $ref->{user_id};
157 my $register_date = $ref->{register_date};
158 # do something...
159 }
160 }
161
162 keyword_articles
163 Get keyword articles
164
165 Options:
166
167 userid : userid(require)
168 keyword : keyword string(require)
169
170 Example:
171
172 my $res = $buzz->keyword_articles( userid => "userid", keyword => "keyword string" );
173 if($res->is_success){
174 foreach my $ref(@{$res->json}){
175 my $url = $ref->{url};
176 my $title = $ref->{title};
177 my $user_num = $ref->{user_num};
178 my $user_id = $ref->{user_id};
179 my $register_date = $ref->{register_date};
180 # do something...
181 }
182 }
183
184 add
185 Add my bookmark(https + basic auth access)
186
187 Options:
188
189 url : bookmark url(require)
190 title : bookmark title
191 comment : bookmark comment
192 keyword : bookmark keyword(max:8)
193
194 Example:
195
196 my $res = $buzz->add(
197 url => "http://your.register.domain/",
198 title => "my bookmark title",
199 comment => "my bookmark comment",
200 keyword => "my keyword",
201 # multiple keyword
202 keyword => [ "my keyword", "my keyword2" ],
203 );
204 if($res->is_success){
205 print $res->json->{status} . "\n";
206 }else{
207 die $res->errstr;
208 }
209
210ACCESSOR METHOD
211 email
212 Get/Set login email
213
214 Example:
215
216 $buzz->email("your email");
217 my $email = $buzz->email;
218
219 password
220 Get/Set login password
221
222 Example:
223
224 $buzz->password("your password");
225 my $password = $buzz->password;
226
227 ua
228 Get LWP::UserAgent instance(Readonly)
229
230 Example:
231
232 # LWP::UserAgent::timeout
233 $buzz->ua->timeout(30);
234 # LWP::UserAgent::env_proxy
235 $buzz->ua->env_proxy;
236
237SEE ALSO
238 Class::Accessor LWP::UserAgent Readonly UNIVERSAL::require URI
239
240AUTHOR
241 Akira Horimoto
242
243COPYRIGHT
244 Copyright (C) 2007 Akira Horimoto
245
246 This module is free software; you can redistribute it and/or modify it
247 under the same terms as Perl itself.
248
249