app.psgi


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

#!/usr/bin/perl

use strict;
use warnings;

use FindBin qw($Bin);
use Devel::StackTrace;

BEGIN {
    $SIG{__DIE__} = sub {
        return if $^S;

        my $error = shift;
        my $trace = Devel::StackTrace->new;
        print STDERR "\nError: $error",
              "Stack Trace:\n",
              $trace->as_string, "\n";
    };
}

$Bin = "$Bin/../bin/cgi-bin";
do "$Bin/app.psgi";