Branch Coverage

File:local/lib/perl5/Test/Most.pm
Coverage:28.6%

line%coveragebranch
2150TFunless $@
47250TFif ($ENV{'BAIL_ON_FAIL'})
47650TFif (not $bail_set and $ENV{'DIE_ON_FAIL'})
48050TFif ('bail' eq $_[$i])
48950TFif ('timeit' eq $_[$i])
50050TFif (grep {$_ eq 'blessed';} @_) { }
50750TFif (not $bail_set and 'die' eq $_[$i])
51350TFif ($_[$i] =~ /^-(.*)/)
5160TFunless (exists $modules_to_load{$module})
52450TFif ($_[$i] =~ /^!(.*)/)
53050TFif ('defer_plan' eq $_[$i])
54650TFif (my $error = $@)
5660TFunless ($HAVE_TIME_HIRES)
5700TFunless ($message)
5900TFref $_ ? :
6110TFunless ($DATA_DUMPER_NAMES_INSTALLED)
6400TFif ($$builder{'TEST_MOST_deferred_plan'})
6420TF@_ ? :
6540TFif ($$builder{'TEST_MOST_test_failed'})
6720TFif ($$builder{'TEST_MOST_test_failed'})
68050TFif ($$builder{'TEST_MOST_deferred_plan'} and not $$builder{'TEST_MOST_all_done'})