File Coverage

blib/lib/AnyEvent/EC2/Tiny.pm

Criterion	Covered	Total	%
statement	12	31	38.7
branch	0	4	0.0
condition			n/a
subroutine	4	7	57.1
pod			n/a
total	16	42	38.1

package AnyEvent::EC2::Tiny;
{
  $AnyEvent::EC2::Tiny::VERSION = '0.002';
}
# ABSTRACT: Tiny asynchronous (non-blocking) interface to EC2 using AnyEvent

use Moo;
use Carp;
use HTTP::Tiny;
use AnyEvent::HTTP;

extends 'Net::EC2::Tiny';

sub _request {
    my $self       = shift;
    my $request    = shift;
    my $headers    = shift;
    my $success_cb = shift;
    my $fail_cb    = shift;

    http_post $self->base_url, $request, headers => $headers, sub {
        my ( $body, $hdr ) = @_;

        # in case we fail
        $hdr->{'Status'} !~ /^2/ and return $fail_cb->( {
            type => 'HTTP',
            data => { headers => $hdr, body => $body },
            text => sprintf "POST Request failed: %s %s %s\n",
                    ( $hdr->{'Status'}, $hdr->{'Reason'}, $body ),
        } );

        # we succeeded
        my $xml = $self->_process($body);
        $xml->{'Errors'} and return $fail_cb->( {
            type => 'XML',
            data => {
                headers => $hdr,
                body    => $body,
                xml     => $xml,
                errors  => $xml->{'Errors'},
            },
            text => "Error: $body\n",
        } );

        $success_cb->($xml);
    };
}

sub send {
    my $self        = shift;
    my %args        = @_;
    my $success_cb  = delete $args{'success_cb'};
    my $fail_cb     = delete $args{'fail_cb'};
    my $request     = $self->_sign(%args);
    my $request_str = HTTP::Tiny->www_form_urlencode($request);
    my $headers     = { 'Content-Type' => 'application/x-www-form-urlencoded' };

    $self->_request( $request_str, $headers, $success_cb, $fail_cb );
}

1;

__END__