File Coverage

blib/lib/Plack/Client/Backend/http.pm

Criterion	Covered	Total	%
statement	27	27	100.0
branch	1	2	50.0
condition	1	3	33.3
subroutine	8	8	100.0
pod	2	2	100.0
total	39	42	92.8

package Plack::Client::Backend::http;
BEGIN {
  $Plack::Client::Backend::http::VERSION = '0.06';
}
use strict;
use warnings;
# ABSTRACT: backend for handling HTTP requests

use Plack::App::Proxy;

use base 'Plack::Client::Backend';



sub new {
    my $class = shift;
    my %args = @_;

    $args{proxy} ||= Plack::App::Proxy->new(
        exists $args{proxy_args} ? $args{proxy_args} : ()
    );

    my $self = $class->SUPER::new(@_);

    $self->{proxy} = $args{proxy}->to_app;

    return $self;
}

sub _proxy { shift->{proxy} }


sub app_from_request {
    my $self = shift;
    my ($req) = @_;

    my $uri = $req->uri->clone;
    $uri->path('/');
    $uri->query(undef);
    $req->env->{'plack.proxy.remote'} = $uri->as_string;
    return $self->_proxy;
}

1;

__END__