use Carp;

($die_on_error ? \&croak : \&carp)->($error);