File Coverage

blib/lib/Mojo/Pua.pm

Criterion	Covered	Total	%
statement	72	72	100.0
branch	8	12	66.6
condition			n/a
subroutine	19	19	100.0
pod	8	8	100.0
total	107	111	96.4

package Mojo::Pua;
use Mojo::Base 'Mojo::UserAgent';
use Evo 'Evo::Export; Mojo::Promise *; Carp croak; Mojo::Pua::Error';

our $VERSION = '0.006';    # VERSION

# LIB version

use constant SINGLE => our $SINGLE = __PACKAGE__->new(max_connections => 100);

sub pua_delete(@opts) : Export  { SINGLE()->delete(@_) }
sub pua_get(@opts) : Export     { SINGLE()->get(@_) }
sub pua_head(@opts) : Export    { SINGLE()->head(@_) }
sub pua_options(@opts) : Export { SINGLE()->options(@_) }
sub pua_patch(@opts) : Export   { SINGLE()->patch(@_) }
sub pua_post(@opts) : Export    { SINGLE()->post(@_) }
sub pua_put(@opts) : Export     { SINGLE()->put(@_) }

# OO version
sub start ($self, $tx, $cb_empty = undef) {

  croak "Got callback but this class returns a Promise" if $cb_empty;
  my $d = deferred();

  my $pcb = sub ($ua, $tx) {
    my $res = $tx->success;
    return $d->resolve($res) if $res;

    my $err  = $tx->error;
    my $perr = Mojo::Pua::Error->new(
      res     => $tx->res,
      message => $err->{message},
      code    => $err->{code}
    );
    $d->reject($perr);
  };

  $self->SUPER::start($tx, $pcb);

  $d->promise;
}

1;

# ABSTRACT: HTTP Client + Evo::Promises

__END__