| line |
true |
false |
branch |
|
202
|
1 |
66 |
unless defined $name |
|
220
|
1855 |
20 |
if ($doc->advance_line) { } |
|
228
|
3 |
1981 |
if ($test_line->todo) |
|
232
|
1964 |
20 |
if ($test->advance_line) { } |
|
239
|
20 |
695 |
if $last |
|
241
|
693 |
2 |
if (_diff($doc_line, $test_line)) { } |
|
266
|
0 |
65 |
if (not $test->is_eof && $doc->is_eof) { } |
|
274
|
3 |
62 |
if $todo |
|
275
|
3 |
62 |
$todo ? : |
|
282
|
0 |
134 |
if ($ENV{'DOCCLAIMS_TRACE'}) |
|
292
|
0 |
5263 |
if ($ENV{'DOCCLAIMS_TRACE'}) |
|
297
|
0 |
0 |
$line->is_doc ? : |
|
298
|
0 |
0 |
$line->code ? : |
|
349
|
117 |
578 |
if ($test_line->code) |
|
353
|
685 |
10 |
if $test eq $doc |
|
357
|
8 |
2 |
if &$subr($doc, $test) |
|
368
|
4 |
0 |
if (ref $line) { } |
|
372
|
2 |
2 |
if $prefix =~ /got/ |
|
439
|
3 |
24 |
ref $doc_file ? : |
|
441
|
27 |
0 |
if (length $test_file) { } |
|
452
|
3 |
1 |
unless defined $dirs |
|
453
|
0 |
4 |
unless ref $dirs |
|
456
|
24 |
5 |
if ($path =~ /$doc_file_re/) { } |
|
|
3 |
2 |
elsif (_read_first_block($path) =~ /^#!.*perl/i) { } |
|
472
|
8 |
8 |
if -f $_ |
|
486
|
2 |
0 |
if (open my $fh, '<', $path) |
|
497
|
22 |
5 |
unless defined $dirs |
|
498
|
0 |
27 |
unless ref $dirs |
|
509
|
27 |
49 |
unless $path =~ s[^[^/]*/][] |
|
524
|
27 |
136 |
if @list |
|
536
|
20 |
18 |
if ($pattern =~ /[*]/) { } |
|
539
|
6 |
12 |
-f $pattern ? : |