use Carp;

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

##</code><code>##

package My::Module;

use warnings::register;

...;
warnings::warnif("The flooble has become discombobulated!");
...;

##</code><code>##

use warnings 'Your::Module';

##</code><code>##

use warnings FATAL => 'Your::Module';