Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
use strict;
use warnings;
$SIG{__DIE__} = sub {
print "die handler: @_";
};
$SIG{__WARN__} = sub {
print "warn handler: @_";
};
eval {
die "error message";
};
warn $@;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.