Permalink
Fetching contributors…
Cannot retrieve contributors at this time
executable file 22 lines (17 sloc) 342 Bytes
#!/usr/bin/env perl
# Pragmas.
use strict;
use warnings;
# Modules.
use Error::Pure qw(err);
$SIG{__DIE__} = sub {
my $err = shift;
$err =~ s/ at .*\n//ms;
$Error::Pure::LEVEL = 5;
$Error::Pure::TYPE = 'ErrorList';
err $err;
};
# Error.
die 'Error';
# Output.
# #Error [path_to_script.pl:17] Error