The best solution in this case is:

use Carp qw( carp croak );
my %actions= (
    die => sub { die @_ },
    warn => sub { warn @_ },
    carp => \&carp,
    croak => \&croak,
);
# ...
$actions{$exception->{action}}->( ... );
[download]

Note that I couldn't find a way to get \&die, \&CORE::die, etc. to work so I went with simple anonymous subs.

        - tye (but my friends call me "Tye")