Subscribed unsubscribe Subscribe Subscribe

AnyEvent::WebService::ImKayacのsendのコールバックがもらう引数変えました

my $cv = AE::cv;

my $im = AnyEvent::WebService::ImKayac->new(%conf);

$im->send( message => 'Hello! test send', cb => sub {
        my ($hdr, $json, $err) = @_;

        if ( $err ) {
            warn $err;
        }
        elsif ( ! $json ) {
            warn $hdr->{Reason};
        }
        elsif ( $json->{result} ne "posted" ) {
            warn $json->{error};
        }

        $cv->send;
    });

$cv->recv;

ヘッダー、json、jsonのパースエラーの順序で渡すようにしました。あとテストも追加しました。

soh335/AnyEvent-WebService-ImKayac · GitHub