File Coverage

blib/lib/PAD/Plugin.pm

Criterion	Covered	Total	%
statement	30	31	96.7
branch	6	8	75.0
condition			n/a
subroutine	10	10	100.0
pod	5	6	83.3
total	51	55	92.7

package PAD::Plugin;
use strict;
use warnings;
use Carp ();
use File::Spec::Unix;

sub new {
    my ($class, %args) = @_;
    bless { %args }, $class;
}

sub suffix        { qr/.+/ }
sub content_type  { 'text/plain; charset=UTF-8' }

sub request       { shift->{request} }
sub relative_path { # extracted from Plack::App::File :)
    my $self = shift;
    my $path = $self->request->path_info;

    if ($path =~ /\0/) {
        Carp::croak "Bad Request";
    }

    my @path = split '/', $path;
    if (@path) {
        if ($path[0] eq '') {
            shift @path
        }

    } else {
        @path = '.';
    }

    if (grep { $_ eq '..' } @path) {
        Carp::croak "Forbidden";
    }

    File::Spec::Unix->catfile('.', @path);
}

sub execute { shift->request->new_response(501)->finalize }

1;
__END__