File Coverage

blib/lib/Nephia/Plugin/Basic.pm

Criterion	Covered	Total	%
statement	18	19	94.7
branch	1	2	50.0
condition			n/a
subroutine	9	10	90.0
pod	4	4	100.0
total	32	35	91.4

package Nephia::Plugin::Basic;
use strict;
use warnings;
use parent 'Nephia::Plugin';

sub exports {
    qw/req param redirect/;
}

sub req {
    my ($self, $context) = @_;
    return sub () {$context->{req}};
}

sub param {
    my ($self, $context) = @_;
    return sub (;$) {$_[0] ? $context->{req}->param($_[0]) : $context->{req}->parameters};
}

sub redirect {
    my ($self, $context) = @_;
    return sub ($) {[303, [Location => $_[0]], []]};
}

1;

__END__