The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

EXODIST / Test-Simple-1.301001_001 / t / lib / SigDie.pm 

            

              
1
2
3
4
5
6
7
8

              
package SigDie;
use strict;
our $DIE;
$SIG{__DIE__} = sub { $DIE = $@ };
1;