package WarningsDie;
use strict;
use warnings;
use Carp;
# confess for warnings and death
BEGIN {
	$SIG{__WARN__} = sub {confess $_[0]};
	$SIG{__DIE__} = sub {confess $_[0]};
}
1;