というのを作った。
作ってる途中でgithubで@taiyohさんが作ってるのを発見\(^o^)/CPANしか見てなかった。
ただ、レスポンスの内容を返してほしかったのと多人数にポーンと投げれるのがほしかったのでWWW::ImKayacも作った。
https://github.com/hisaichi5518/p5-www-imkayac
(じつはWebService::ImKayacって名前で作ってたんだけど途中で変えた)
あと今更だけど、AnyEventを初めて使った。ここで結構ハマってしまった。
ドキュメントやらテストやら書いてないけど、作ろうと思ってるやつに使う予定だし書くはず。
変なところあったら、ツッコミお待ちしております。
use strict; use warnings; use utf8; use Encode; use WWW::ImKayac; use WWW::ImKayac::AnyEvent; my $im = WWW::ImKayac->new( username =>'username', password => '...', # password or secret_key authtype => 'secret_key', # or password ); $im->post( message => encode_utf8 'にほんごだぜ', ); $im = WWW::ImKayac::AnyEvent->new; $im->post( { username =>'username1', password => '...', # password or secret_key authtype => 'secret_key', # or password message => 'hogehoge', }, { username =>'username2', password => '...', # password or secret_key authtype => 'secret_key', # or password message => 'fugafuga', }, );