$ cat trap_exit.t
use warnings;
use strict;

use Test::More tests => 3;
use Test::Trap;

ok(require('test_exit.pl'), 'loaded');

trap{ killer() };
$trap->die_like( qr/hasta la vista baby/, q{Expected killer to die} );

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