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