File Coverage

blib/lib/Plack/App/Vhost.pm

Criterion	Covered	Total	%
statement	30	30	100.0
branch	6	6	100.0
condition			n/a
subroutine	10	10	100.0
pod	2	3	66.6
total	48	49	97.9

package Plack::App::Vhost;
use 5.008005;
use strict;
use warnings;

our $VERSION = "0.01";

use parent qw/Plack::Component/;
use Plack::Util::Accessor qw/vhosts fallback/;
use List::Util 1.28 qw/pairs/;

sub prepare_app {
    my $self = shift;
    $self->vhosts([])                       unless defined $self->vhosts;
    $self->fallback(sub { $self->res_404 }) unless defined $self->fallback;
}

sub call {
    my ($self, $env) = @_;

    for my $vhost (pairs @{ $self->vhosts }) {
        my ($rx, $app) = @$vhost;
        return $app->($env) if $env->{HTTP_HOST} =~ $rx;
    }

    return $self->fallback->($env);
}

sub res_404 {
    my $self = shift;
    return [404, ['Content-Type' => 'text/plain', 'Content-Length' => 9], ['not found']];
}

1;
__END__