sub set_delim {
    undef $delim;
    local $SIG{__WARN__} = sub { die() };
    try {
       ...    

##</code><code>##

sub set_delim {
    undef $delim;
    use warnings 'FATAL' => 'all';
    try {
       ...