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->{r…