Branch Coverage

blib/lib/Test/Run/Straps.pm
Criterion Covered Total %
branch 33 42 78.5


line true false branch
99 289 55 if (defined $event) { }
164 3 49 if ($self->_event->tests_planned == 0)
205 19 7 if (defined $test)
234 2 5 unless ($self->too_many_tests)
274 288 138 if ($event->$is_type)
291 346 1 if ($self->callback)
315 208 79 if (defined(my $n = $self->_event->get_next_test_number))
349 0 287 if $self->saw_bailout
506 2 55 if ($self->exception ne '')
573 0 60 $inc_param ? :
575 0 60 if ($self->_is_vms) { }
0 60 elsif ($self->_is_win32) { }
605 0 398 unless (defined $s)
646 1 59 unless (open $test_fh, $file)
657 0 59 unless (close $test_fh)
686 1 59 if (defined(my $interp = $self->Test_Interpreter)) { }
689 0 1 ref $interp eq 'ARRAY' ? :
705 0 59 if ($self->_is_win32) { }
740 0 106 if ($self->_is_vms)
800 3 57 if ($shebang =~ /^#!.*\bperl.*\s-\w*([Tt]+)/) { }
814 3 57 if (my($t) = $self->_calc_taint_flag) { }