Yet Another CPAN Grep

AnyEvent-WebService-ImKayac ( S/SO/SOH/AnyEvent-WebService-ImKayac-0.01.tar.gz, SOH, 2013; MetaCPAN )

AnyEvent-WebService-ImKayac/lib/AnyEvent/WebService/ImKayac.pm ( view source; MetaCPAN )

/im.kayac.com";

use AnyEvent::HTTP;
use HTTP::Request::Common;
use Digest::SHA qw/sha1_hex/;
use JSON;
use Carp;

=head1 NAME

AnyEvent::WebService::ImKayac - connection wrapper for im.kayac.com

=he

cb => sub {
      my ($hdr, $json, $reason) = @_;

      if ( $json ) {
          if ( $json->{result} eq "posted" ) {
          }
          else {
              warn $json->{error};
          }

dy, $hdr) = @_;

        local $@;
        my $json = eval { decode_json($body) };

        if ( $hdr->{Status} =~ /^2/ ) {
            $cb->( $hdr, $json, $@ ? "parse error: $@" : $hdr->{Reason} );