File Coverage

blib/lib/Plack/Middleware/DefaultDocument.pm

Criterion	Covered	Total	%
statement	32	32	100.0
branch	6	8	75.0
condition			n/a
subroutine	7	7	100.0
pod	1	1	100.0
total	46	48	95.8

package Plack::Middleware::DefaultDocument;

use strict;
use warnings;

our $VERSION = '0.02';

use parent 'Plack::Middleware';
use Plack::Util;
use Plack::MIME;

sub call {
    my $self = shift;
    my $env  = shift;

    my $r = $self->app->($env);

    $self->response_cb($r, sub {
        my $r = shift;
        return if $r->[0] != 404;

        for my $uri (grep { $_ ne 'app' } keys %$self) {
            if ($env->{PATH_INFO} =~ m{$uri}) {
                ## return 404 if the specified file doesn't exist
                return unless -f $self->{$uri};

                my $h = Plack::Util::headers($r->[1]);
                $h->remove('Content-Length');
                $h->set('Content-Type', Plack::MIME->mime_type($env->{PATH_INFO}));

                open my $fh, '<', $self->{$uri}
                    or die "Can't open file $self->{$uri}: $!";
                $r->[0] = 200;
                $r->[2] = $fh;

                return;
            }
        }
    });
}

1;

__END__