File Coverage

blib/lib/Plack/Middleware/DiePretty.pm

Criterion	Covered	Total	%
statement	37	37	100.0
branch	3	4	75.0
condition	5	9	55.5
subroutine	11	11	100.0
pod	1	1	100.0
total	57	62	91.9

package Plack::Middleware::DiePretty;
use parent 'Plack::Middleware';
use strict;
use warnings;
use Plack::Util::Accessor qw(template);
use Try::Tiny;
use Template;
use Path::Class;
use FindBin qw($Bin);

our $VERSION = '0.001';
$VERSION = eval $VERSION;

sub call {
  my ($self, $env) = @_;

  local $SIG{__DIE__} = sub { die @_; };

  my $caught;
  my $res = try { $self->app->($env); } catch { $caught = $_; [ 500, [ 'Content-Type' => 'text/plain; charset=utf-8' ], [ $caught ] ]; };

  my $template = file( $self->template || "$Bin/html/error.html" );

  if ($caught || (ref $res eq 'ARRAY' && $res->[0] == 500)) {
    Template->new({ INCLUDE_PATH => $template->dir->absolute })->process($template->basename, { caught => $caught }, \(my $html)) || die $@;
    $res = [ 500, [ 'Content-Type' => 'text/html'], [ $html ] ];
  }
  $res;
}

1;

__END__