Select Code to Download

$ cat trap_exit.t
use warnings;
...

trap{ exiter() };
$trap->exit_is( 42, q{Expected exiter to exit} );

$ prove -v test_exit.t
test_exit....1..3
...
All tests successful.
Files=1, Tests=3,  0 wallclock secs ( 0.09 cusr +  0.00 csys =  0.09 C
+PU)