Branch Coverage

blib/lib/Fred/Fish/DBUG/Signal.pm
Criterion Covered Total %
branch 108 164 65.8


line true false branch
108 77 2612 if (defined $SIG{$_} and $SIG{$_} =~ /^$pkg/)
118 39 0 if $clr_sig_flg
167 169 0 unless on_get_global_var("on") and on_get_global_var("no_end")
170 0 0 if ($dbug_signal_vars{'die_trapped'} and $special_flag != 2)
173 0 0 if $s eq $ref->{'SAVE_SIG'}
185 0 0 if ($special_flag) { }
186 0 0 if $eval_cnt <= 0
188 0 0 if $eval_cnt <= 1
219 0 145 unless $sig
228 0 13 unless $special_signals or exists $SIG{$sig}
237 0 145 if ($special_signals and $action == 2) { }
0 145 elsif ($action == 2) { }
145 0 elsif ($action == 1 or $action == 3 or $action == 4) { }
241 0 0 $sig eq '__DIE__' ? :
248 0 0 if ($names[$_] eq $sig)
254 0 0 if $exit_sts == -1
272 0 145 if ($action == 1 or $action == 2) { }
290 0 81 do { $func eq 'DEFAULT' unless $func eq 'IGNORE' } ? :
81 66 $func ? :
293 81 0 unless $func eq "IGNORE"
301 81 0 if ($code and $name) { }
312 67 78 if ($#codes != -1) { }
0 78 elsif ($drop == 1) { }
0 78 elsif ($drop > 1) { }
316 0 67 unless 1 <= $context and $context <= 3
329 79 66 unless (exists $dbug_signal_vars{'original_signal_action'}{$sig})
336 49 83 do { $sig eq '__DIE__' } ? :
132 13 $special_signals ? :
446 0 149 unless $action =~ /^\d+$/
450 6 143 if ($sig eq "DIE" or $sig eq "WARN")
455 2 147 if ($action == 55)
456 2 0 if (exists $dbug_signal_vars{'forward_signals'}{$sig}) { }
460 0 2 if $sig eq "__DIE__"
474 145 2 if ($action == 1 or $action == 2 or $action == 3 or $action == 4)
481 0 147 if ($res == -2) { }
2 145 elsif ($res == -1) { }
0 145 elsif ($res == 0) { }
497 49 96 if $sig eq "__DIE__"
536 0 92 if ($sig eq "DIE" or $sig eq "WARN")
543 68 24 unless defined $ref
552 2 22 if $s ne $ref->{'SAVE_SIG'}
554 9 15 unless defined $func
556 15 0 wantarray ? :
610 144 5 $dbug_signal_vars{'die_context_managed'} ? :
620 5 144 unless defined $in_eval
623 5 144 unless $managed
625 149 0 wantarray ? :
662 0 26 unless (defined $sig_info)
670 18 8 if (DBUG_ACTIVE()) { }
676 26 0 if ($sig_info->{'CONTEXT'})
683 0 26 if ($sig_info->{'ACTION'} == 1 or $sig_info->{'ACTION'} == 2) { }
2 24 elsif ($sig_info->{'ACTION'} == 3) { }
24 0 elsif ($sig_info->{'ACTION'} == 4) { }
723 13 2 if ($sig_info->{'ACTION'} != 4)
733 6 9 if ($msg =~ / at (.+) line ${line}[.]/ and $1 eq $filename)
739 15 0 if ($sig_info->{'CONTEXT'})
746 0 15 if ($sig_info->{'ACTION'} == 1 or $sig_info->{'ACTION'} == 2) { }
13 2 elsif ($sig_info->{'ACTION'} == 3) { }
2 0 elsif ($sig_info->{'ACTION'} == 4) { }
795 0 146 unless ($sig_info)
808 26 120 if ($dbug_signal_vars{'chained_die'}) { }
26 94 elsif ($dbug_signal_vars{'expect_duplicate_rethrown_request'}) { }
42 52 elsif ($dbug_signal_vars{'last_die_message'} and $dbug_signal_vars{'last_die_message'} eq $msg) { }
827 24 2 $msg eq $dbug_signal_vars{'last_die_message'} ? :
830 24 2 if ($rethrown)
835 24 2 $rethrown ? :
865 80 66 if ($rethrown == 0)
876 73 0 if ($funcs and $sig_info->{'CONTEXT'})
882 0 73 if ($sig_info->{'ACTION'} == 1 or $sig_info->{'ACTION'} == 2)
897 0 146 if ($sig_info->{'ACTION'} == 1 or $sig_info->{'ACTION'} == 2) { }
4 142 elsif ($sig_info->{'ACTION'} == 3) { }
142 0 elsif ($sig_info->{'ACTION'} == 4) { }
903 3 1 if ($dbug_signal_vars{'LOG_NOW_WORKS_IN_DIE'})
910 1 0 unless ($rethrown)
955 98 0 if $msg
960 638 0 if $print_flg
961 145 493 if $c eq "(eval)"
964 98 0 if $print_flg
991 0 114 if $dbug_signal_vars{'recursion'}
996 88 26 $msg ? :
1017 72 123 if ($@)
1022 0 72 if $die_action == 1