Reading database from ... -------------- ------ ------ ------ ------ ------ File stmt bran cond sub total -------------- ------ ------ ------ ------ ------ tests/exec_die 50.0 50.0 n/a 0.0 45.4 Total 50.0 50.0 n/a 0.0 45.4 -------------- ------ ------ ------ ------ ------ Run: ... Perl version: ... OS: ... Start: ... Finish: ... tests/exec_die line err stmt bran cond sub code 1 #!/usr/bin/perl 2 3 # Copyright 2011-2025, Paul Johnson (paul@pjcj.net) 4 5 # This software is free. It is licensed under the same terms as Perl itself. 6 7 # The latest version of this software should be available from my homepage: 8 # https://pjcj.net 9 10 # __COVER__ skip_test $^O eq "MSWin32" 11 # __COVER__ skip_reason Fork uses threads on Windows 12 13 *** 1 * 50 die unless defined ($pid = fork); 14 15 *** 1 * 50 if ($pid) { 16 1 wait; 17 } else { 18 *** *0 *0 local *Devel::Cover::_report = sub { die "Badness happened!" }; *** *0 19 *** *0 exec "echo We want to be able to see this."; 20 } Branches -------- line err % true false branch ----- --- ------ ------ ------ ------ 13 *** 50 0 1 unless defined($pid = fork) 15 *** 50 1 0 if ($pid) { } Uncovered Subroutines --------------------- Subroutine Count Location ---------- ----- ----------------- __ANON__ 0 tests/exec_die:18