File Coverage

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

Criterion	Covered	Total	%
statement	34	36	94.4
branch	3	6	50.0
condition			n/a
subroutine	10	10	100.0
pod	3	3	100.0
total	50	55	90.9

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

use Carp;
use Plack::Middleware::ContentLength;

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



sub new {
    my $class = shift;
    my %params = @_;
    my $self = $class->SUPER::new(@_);

    croak 'apps must be a hashref'
        if ref($params{apps}) ne 'HASH';

    $self->{apps} = $params{apps};

    return $self;
}

sub _apps { shift->{apps} }


sub app_for {
    my $self = shift;
    my ($for) = @_;
    return $self->_apps->{$for};
}


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

    my $app_name;
    if (my $uri = $req->env->{'plack.client.original_uri'}) {
        $app_name = $uri->authority;
    }
    else {
        $app_name = $req->uri->authority;
        $app_name =~ s/(.*):.*/$1/; # in case a port was added at some point
    }

    my $app = $self->app_for($app_name);
    croak "Unknown app: $app_name" unless $app;
    return Plack::Middleware::ContentLength->wrap($app);
}

1;

__END__