Permalink
Find file
Fetching contributors…
Cannot retrieve contributors at this time
18 lines (12 sloc) 226 Bytes
#!/usr/bin/perl
use strict;
use warnings;
use Plack::Builder;
use HTTP::Exception;
my $app = sub {
HTTP::Exception::500->throw(status_message => 'Everything is fine');
};
builder {
enable 'HTTPExceptions';
$app;
};