File Coverage

blib/lib/HTTP/AnyUA/Middleware.pm

Criterion	Covered	Total	%
statement	18	24	75.0
branch	3	6	50.0
condition			n/a
subroutine	7	11	63.6
pod	7	7	100.0
total	35	48	72.9

package HTTP::AnyUA::Middleware;
# ABSTRACT: A base class for HTTP::AnyUA middleware


use warnings;
use strict;

our $VERSION = '0.904'; # VERSION

sub _croak { require Carp; Carp::croak(@_) }
sub _usage { _croak("Usage: @_\n") }



sub new {
    my $class   = shift;
    my $backend = shift or die 'Backend is required';
    my $self = bless {backend => $backend}, $class;
    $self->init(@_);
    return $self;
}


sub init {}


sub wrap {
    my $self    = shift;
    my $backend = shift or _usage($self . q{->wrap($backend, %args)});

    if (ref $self) {
        $self->{backend} = $backend;
    }
    else {
        $self = $self->new($backend, @_);
    }

    return $self;
}


sub request { shift->backend->request(@_) }


sub backend { shift->{backend} }


sub ua { shift->backend->ua(@_) }


sub response_is_future { shift->backend->response_is_future(@_) }

1;

__END__