line |
true |
false |
branch |
36
|
2 |
2 |
if exists $plan{'tests'} |
42
|
1 |
10 |
unless $plan |
45
|
1 |
10 |
unless ref $hashref |
47
|
1 |
10 |
unless ($is_hashref) |
54
|
0 |
11 |
if ($$hashref{'file'}) { } |
|
1 |
10 |
elsif ($$hashref{'dir'}) { } |
68
|
11 |
11 |
if -f $manifest_path |
72
|
0 |
11 |
if not $tmp_home or $tmp_home eq $home or $counter++ == 20 |
77
|
0 |
11 |
unless ($manifest) |
83
|
0 |
11 |
if -f $skip_path |
88
|
8 |
3 |
$is_hashref && $$hashref{'filter'} ? : |
90
|
1 |
10 |
$is_hashref && $$hashref{'bool'} && $$hashref{'bool'} =~ /^and$/i ? : |
96
|
5 |
5 |
if $is_hashref and exists $$hashref{'exclude'} and ref $$hashref{'exclude'} eq 'ARRAY' |
101
|
0 |
27 |
unless m[^/] |
103
|
14 |
13 |
unless -e $path |
109
|
0 |
11 |
if (not open(my $fh, '<', $manifest)) { } |
117
|
0 |
11 |
unless $files_in_skip |
131
|
0 |
132 |
unless -e $home . '/' . $tfile |
150
|
164 |
452 |
if -f $file and not $is_excluded |
152
|
170 |
446 |
if -f $file and $is_excluded |
161
|
110 |
1278 |
if ($file eq $check) |
172
|
0 |
11 |
if scalar @files_plus > 0 |
183
|
4 |
0 |
if scalar @missing_files >= 1 and $test_bool == 1 and $VERBOSE |
184
|
0 |
0 |
if scalar @files_plus >= 1 and $test_bool == 1 and $VERBOSE |
196
|
0 |
132 |
if $fh_line =~ /# MANIFEST for Test-CheckManifest/ |
198
|
0 |
132 |
if $fh_line =~ / \A \s* \# /x |
199
|
0 |
132 |
if $selftest and $fh_line =~ /# selftest/ |
203
|
11 |
121 |
if (($file) = $fh_line =~ /^'(\\[\\']|.+)+'\s*(.*)/) { } |
210
|
0 |
132 |
unless $file |
231
|
616 |
0 |
if ($files_in_skip and 'ARRAY' eq ref $files_in_skip) |
235
|
0 |
0 |
if $local_file =~ /$regex/ |
241
|
559 |
57 |
if ($bool eq 'or') { } |
242
|
560 |
0 |
if ref $_ and ref $_ eq 'Regexp' |
|
67 |
492 |
if grep {$file =~ /$_/ if ref $_ and ref $_ eq 'Regexp';} @$filter |
243
|
233 |
326 |
if grep {$file =~ /^\Q$_\E/;} @$dirref |
246
|
2 |
55 |
if $file =~ /$_/ and ref $_ |
|
0 |
6 |
if $file =~ /^\Q$_\E/ |
|
0 |
57 |
if (grep {ref $_ eq 'Regexp' if $file =~ /$_/ and ref $_;} @$filter and grep {not ref $_ if $file =~ /^\Q$_\E/;} @$dirref) |
258
|
11 |
0 |
unless $skip and -e $skip |
261
|
0 |
0 |
if (-e $skip and not open(my $skip_fh, '<', $skip)) { } |