File Coverage

blib/lib/Nephia/Plugin/ErrorPage.pm

Criterion	Covered	Total	%
statement	36	36	100.0
branch	4	4	100.0
condition	6	9	66.6
subroutine	12	12	100.0
pod	3	4	75.0
total	61	65	93.8

package Nephia::Plugin::ErrorPage;
use 5.008005;
use strict;
use warnings;
use parent 'Nephia::Plugin';
use Nephia::Response;
use HTTP::Status;

our $VERSION = "0.01";

sub new {
    my ($class, %opts) = @_;
    my $self = $class->SUPER::new(%opts);
    return $self;
}

sub exports { qw/ res_error res_404 / }

sub res_error {
    my ($self, $context) = @_;
    sub {
        my ($code, $message) = @_;
        $message ||= HTTP::Status::status_message($code);
        my $template = $self->app->{config}{ErrorPage}{template};
        my $content  = $template && $self->app->dsl('render') ?
            $self->app->dsl('render')->($template, {code => $code, message => $message}) :
            "$code $message"
        ;
        my $res = Nephia::Response->new($code, ['Content-Type' => 'text/html; charset=UTF-8'], [$content]);
        $context->set(res => $res);
    };
}

sub res_404 {
    my ($self, $context) = @_;
    sub {
        my $template = $self->app->{config}{ErrorPage}{template};
        my $content  = $template && $self->app->dsl('render') ?
            $self->app->dsl('render')->($template, {code => 404, message => 'Not Found'}) :
            '404 Not Found'
        ;
        my $res = Nephia::Response->new(404, ['Content-Type' => 'text/html; charset=UTF-8'], [$content]);
        $context->set(res => $res);
    };
}

1;
__END__