Branch Coverage

File:inc/Test/Builder.pm
Coverage:31.1%

line%coveragebranch
1450TFif ($] >= 5.008001 and $Config{'useithreads'} and $INC{'threads.pm'}) { }
240TFif ($type eq 'HASH') { }
0TFelsif ($type eq 'ARRAY') { }
0TFelsif ($type eq 'SCALAR') { }
390TFif ($type eq 'HASH') { }
0TFelsif ($type eq 'ARRAY') { }
0TFelsif ($type eq 'SCALAR') { }
18150TFunless $^C
211100TFunless $cmd
21550TFif ($$self{'Have_Plan'})
21950TFif ($cmd eq 'no_plan') { }
50TFelsif ($cmd eq 'skip_all') { }
50TFelsif ($cmd eq 'tests') { }
22650TFif ($arg) { }
0TFelsif (not defined $arg) { }
0TFelsif (not $arg) { }
25950TFif (@_)
26050TFunless $max =~ /^\+?\d+$/ and $max > 0
26650TFunless $self->no_header
298100TFif $$self{'Expected_Tests'}
299100TFif $$self{'No_Plan'}
3170TFif $reason
3220TFunless $self->no_header
34350TFif (defined $pack)
37550TF$test ? :
38550TFif defined $name and $name =~ /^[\d\s]+$/
40150TFif (not $test) { }
4030TF$todo ? :
41050TFif $self->use_numbers
412100TFif (defined $name) { }
42150TFif ($todo) { }
43650TFunless ($test)
4370TF$todo ? :
4380TFif $ENV{'HARNESS_ACTIVE'}
4410TFif (defined $name) { }
45050TF$test ? :
45850TFunless $self->_try(sub { require overload; } )
461100TFif ($self->_is_object($$thing))
46250TFif (my $string_meth = overload::Method($$thing, $type))
473100TFif ref $thing
100TF$self->_try(sub { $thing->isa('UNIVERSAL') if ref $thing; } ) ? :
4890TFunless $self->_is_dualvar($$val)
5010TFif $numval != 0 and $numval ne $val
528100TFif (not defined $got or not defined $expect)
53350TFunless $test
5460TFif (not defined $got or not defined $expect)
5510TFunless $test
5620TFif (defined $$val) { }
5630TFif ($type eq 'eq') { }
60550TFif (not defined $got or not defined $dont_expect)
6100TFunless $test
6210TFif (not defined $got or not defined $dont_expect)
6260TFunless $test
68750TF$numeric_cmps{$type} ? :
70950TFunless ($ok)
7100TFif ($type =~ /^(eq|==)$/) { }
7230TFdefined $got ? :
7240TFdefined $expect ? :
74150TFif defined $file and defined $line
81150TFif $self->use_numbers
81350TFif length $why
8520TFif $self->use_numbers
9170TFunless defined $regex
9220TFif (_is_qr($regex)) { }
0TFelsif (($re, $opts) = $regex =~ m[^ /(.*)/ (\w*) $ ]sx or (undef, $re, $opts) = $regex =~ /^ m([^\w\s]) (.+) \1 (\w*) $/sx) { }
9300TFlength $opts ? :
9420TFif defined &re::is_regexp
9520TFunless (defined $usable_regex)
9700TFif $cmp eq '!~'
9760TFunless ($ok)
9770TFdefined $this ? :
9780TF$cmp eq '=~' ? :
101850TFwantarray ? :
103550TFunless defined $maybe_fh
103750TFif ref $maybe_fh eq 'GLOB'
10380TFif ref \$maybe_fh eq 'GLOB'
108050TFif (defined $level)
111350TFif (defined $use_nums)
115050TFif (defined $no)
12010TFif $self->no_diag
12020TFunless @msgs
12050TFif $^C
12090TFdefined $_ ? :
12150TFunless $msg =~ /\n\Z/
124050TFif $^C
125250TFunless $msg =~ /\n\Z/
12730TF$self->todo ? :
1309100TFif (defined $fh)
131850TFif (defined $fh)
132750TFif (defined $fh)
133950TFif ($self->is_fh($file_or_fh)) { }
13430TFunless open $fh, '>', $file_or_fh
138350TFif $Opened_Testhandles
138750TFunless open $Testout, '>&STDOUT'
138850TFunless open $Testerr, '>&STDERR'
14040TFif @src_layers
144550TFunless ($$self{'Have_Plan'})
147650TFif (defined $num)
14770TFunless ($$self{'Have_Plan'})
14850TFif ($num > @$test_results) { }
0TFelsif ($num < @$test_results) { }
14860TF@$test_results ? :
160150TFif defined $$self{'TODO'}
160450TFunless $pack
160750TFdefined ${$pack . '::TODO';} ? :
1628100TFwantarray ? :
167250TFif ($check)
171350TFif ($$self{'Original_Pid'} != $$)
171950TFif (not $$self{'Have_Plan'})
172450TFif ($$self{'Bailed_Out'})
173050TFif (@$test_results) { }
0TFelsif ($$self{'Skip_All'}) { }
0TFelsif ($real_exit_code) { }
1732100TFif ($$self{'No_Plan'})
173350TFunless $self->no_header
174250TFunless defined $$test_results[$idx]
175150TFif ($num_extra < 0) { }
50TFelsif ($num_extra > 0) { }
17520TF$$self{'Expected_Tests'} == 1 ? :
17580TF$$self{'Expected_Tests'} == 1 ? :
176450TFif ($num_failed)
17660TF$num_failed == 1 ? :
17680TF$num_extra == 0 ? :
177550TFif ($real_exit_code)
17800TFif _my_exit(255)
178450TFif ($num_failed) { }
50TFelsif ($num_extra != 0) { }
17850TF$num_failed <= 254 ? :
179450TFif _my_exit($exit_code)
17970TFif _my_exit(0)
18030TFif _my_exit(255)
18070TFif _my_exit(255)