Home > Perl > WebService::PhotoZou に photo_info を追加

WebService::PhotoZou に photo_info を追加

フォト蔵API」を使うために WebService::PhotoZou を覗いてみたんだが、唯一使いたいメソッド「photo_info」に対応していないので、パッチ

--- PhotoZou.pm.org     2006-09-30 01:59:58.000000000 +0900
+++ PhotoZou.pm 2007-07-02 11:21:54.000000000 +0900
@@ -122,6 +122,13 @@
     $res->{info}->{user_group} || [];
 }

+sub photo_info {
+    my ($self, %param) = @_;
+    my $content = $self->_request('photo_info', %param);
+    my $res = $self->_to_result($content) or return;
+    $res->{info}->{photo};
+}
+
 sub errormsg {
     my $self = shift;
     my $msg;

いちおう作者さんにお知らせしておこうと思ったら、フォト蔵関連エントリ 1 個。ご本人は photo_info いらないのかも

パッチどうもありがとうございます。photo_info含め、だいぶメソッドが増えているようですね。近いうちに対応します。 - spiritloose (2007年07月02日 21時22分07秒)
わーい、楽しみに待ってます - 髭。 (2007年07月02日 21時36分53秒)

Comments:0

Comment Form

Home > Perl > WebService::PhotoZou に photo_info を追加

Feeds

Return to page top