| 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 |
143 |
if $fh_line =~ /# MANIFEST for Test-CheckManifest/ |
|
198
|
11 |
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)) { } |