パルカワ2

PerlとRubyとイチャラブ

WWW::ImKayac

というのを作った。
作ってる途中で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',
    },
);