File Coverage

blib/lib/PAD.pm

Criterion	Covered	Total	%
statement	12	32	37.5
branch	0	6	0.0
condition	0	6	0.0
subroutine	4	9	44.4
pod	0	4	0.0
total	16	57	28.0

package PAD;
use strict;
use warnings;
our $VERSION = '0.04';
use Plack::Request;
use Plack::App::Directory;

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

    __PACKAGE__->require($plugin);

    bless {
        plugin => $plugin,
        args   => \%args,
    }, $class;
}

sub plugin { shift->{plugin} }

sub psgi_app {
    my $self = shift;

    return sub {
        my $req  = Plack::Request->new(shift);

        my $path = $req->path_info;
        $path =~ s/[\/\\\0]//g;
        if ($path eq '/' || $path eq 'favicon.ico' || not $path) {
            return Plack::App::Directory->new->to_app->($req->env);
        }

        my $plugin = $self->plugin->new(
            %{ $self->{args} },
            request => $req,
        );

        return $req->path_info =~ $plugin->suffix
            ? $plugin->execute
            : Plack::App::Directory->new->to_app->($req->env);
    };
}

sub require {
    my (undef, $class) = @_;
    unless ($class->can("new")) {
        my $path = $class;
        $path =~ s|::|/|g;
        require "$path.pm"; ## no critic
    }
}

1;
__END__