| line |
true |
false |
branch |
|
149
|
4 |
2 |
if $@ |
|
156
|
0 |
19 |
if ($VERBOSE) |
|
162
|
7 |
12 |
unless check($test) |
|
163
|
7 |
12 |
unless &ok($test, $msg) |
|
170
|
0 |
5 |
if ($VERBOSE) |
|
176
|
3 |
2 |
unless check(!$test) |
|
177
|
3 |
2 |
unless ok !$test, "not [$msg]" |
|
184
|
0 |
18 |
if ($VERBOSE) |
|
191
|
4 |
14 |
unless check_is(0 + $lhs, 0 + $rhs) |
|
192
|
4 |
14 |
unless &is(, , $msg) |
|
198
|
0 |
8 |
if ($VERBOSE) |
|
204
|
4 |
4 |
unless check_is($lhs, $rhs) |
|
205
|
4 |
4 |
unless &is($lhs, $rhs, $msg) |
|
225
|
28 |
0 |
if defined $OFH |
|
226
|
28 |
0 |
if defined $FFH |
|
227
|
28 |
0 |
if defined $TFH |
|
240
|
0 |
28 |
if ($VERBOSE) |
|
249
|
11 |
17 |
unless $ok |
|
251
|
11 |
17 |
unless $ok |
|
263
|
6 |
2 |
if (not ref $got || ref $expected) { } |
|
|
0 |
2 |
elsif (not ref $got xor not ref $expected) { } |
|
271
|
1 |
1 |
if (Test::More::_deep_check($got, $expected)) { } |
|
285
|
0 |
8 |
if ($VERBOSE) |
|
291
|
4 |
4 |
if check_is($lhs, $rhs) |
|
292
|
5 |
3 |
unless isnt_deeply($lhs, $rhs, $msg) |
|
298
|
0 |
7 |
if ($VERBOSE) |
|
304
|
2 |
5 |
unless check_like($lhs, $rhs) |
|
305
|
2 |
5 |
unless &like($lhs, $rhs, $msg) |
|
311
|
0 |
7 |
if ($VERBOSE) |
|
317
|
5 |
2 |
if check_like($lhs, $rhs) |
|
318
|
5 |
2 |
unless &unlike($lhs, $rhs, $msg) |
|
322
|
10 |
14 |
unless ($_[0]) |
|
331
|
0 |
0 |
unless defined $data or defined $expected |
|
332
|
0 |
34 |
if not defined $data and defined $expected |
|
333
|
0 |
34 |
if defined $data and not defined $expected |
|
340
|
0 |
14 |
unless defined $match |
|
342
|
4 |
10 |
if (not defined $data and defined $match or not $data =~ /$match/) |
|
354
|
0 |
40 |
unless $ENV{'HARNESS_ACTIVE'} |
|
360
|
0 |
40 |
$col == -1 ? : |
|
362
|
0 |
40 |
unless $ENV{'HARNESS_ACTIVE'} |
|
385
|
12 |
88 |
unless ($file_cache{$file} and @{$file_cache{$file};}) |
|
390
|
0 |
12 |
$file eq '-e' ? : |
|
391
|
0 |
12 |
unless -e $fn |
|
392
|
0 |
12 |
unless -e $fn |
|
393
|
0 |
12 |
unless -e $fn |
|
394
|
0 |
12 |
unless open $io, "$fn" |
|
412
|
0 |
100 |
if ($source =~ /$sub$Test::Trivial::RE{'balanced'}{join $;, -'parens', '()'}{-'keep'}/s) { } |
|
|
1 |
99 |
elsif ($source =~ /$sub(.*?)\s(or|and)\b/s) { } |
|
|
99 |
0 |
elsif ($source =~ /$sub(.*?)(;|$)/s) { } |
|
425
|
87 |
13 |
if (my $op = $OPS{$sub}) |
|
461
|
2 |
4 |
if ($type eq 'HASH') { } |
|
|
3 |
1 |
elsif ($type eq 'ARRAY') { } |
|
|
0 |
1 |
elsif ($type eq 'REF') { } |
|
462
|
0 |
2 |
unless $did_arrow++ |
|
465
|
3 |
0 |
unless $did_arrow++ |
|
476
|
1 |
2 |
if ($vals[0] =~ /\n/ or $vals[1] =~ /\n/) { } |
|
487
|
0 |
2 |
ref $val ? : |
|
|
2 |
2 |
Test::More::_dne($val) ? : |
|
|
0 |
4 |
!defined($val) ? : |
|
510
|
2 |
14 |
unless defined $got and defined $expect |
|
513
|
2 |
12 |
if ($got =~ /\n/ or $expect =~ /\n/) |
|
546
|
0 |
0 |
if (not UNIVERSAL::isa($handle, 'IO::Handle')) { } |