Select Code to Download

 
$ cat test_exit.pl 
use strict; 
...

1;
__END__

$ cat test_exit.t
use warnings;
...
ok(require('test_exit.pl'), 'loaded');
throws_ok( sub { killer () }, qr/hasta la vista baby/, q{Expected kill
+er to die});
__END__

$ prove test_exit.t
test_exit....ok
All tests successful.
Files=1, Tests=2,  0 wallclock secs ( 0.04 cusr +  0.01 csys =  0.05 C
+PU)