| 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 |
|
90
|
8 |
3 |
$is_hashref && $hashref->{'filter'} ? : |
|
93
|
1 |
10 |
$is_hashref && $hashref->{'bool'} && $hashref->{'bool'} =~ /^and$/i ? : |
|
99
|
5 |
5 |
if $is_hashref and exists $hashref->{'exclude'} and ref $hashref->{'exclude'} eq 'ARRAY' |
|
102
|
0 |
27 |
unless m[^/] |
|
104
|
14 |
13 |
unless -e $path |
|
110
|
11 |
0 |
if (open my $fh, '<', $manifest) { } |
|
118
|
0 |
11 |
unless $files_in_skip |
|
132
|
0 |
143 |
unless -e $home . '/' . $tfile |
|
151
|
173 |
454 |
if -f $file and not $is_excluded |
|
153
|
172 |
455 |
if -f $file and $is_excluded |
|
162
|
119 |
1441 |
if ($file eq $check) |
|
173
|
0 |
11 |
if scalar @files_plus > 0 |
|
176
|
0 |
143 |
1 == $seen_files{$_}++ ? : |
|
177
|
0 |
11 |
if scalar @dup_files > 0 |
|
190
|
4 |
0 |
if scalar @missing_files >= 1 and $test_bool == 1 and $VERBOSE |
|
191
|
0 |
0 |
if scalar @files_plus >= 1 and $test_bool == 1 and $VERBOSE |
|
192
|
0 |
0 |
if scalar @dup_files >= 1 and $test_bool == 1 and $VERBOSE |
|
204
|
0 |
154 |
if $fh_line =~ /# MANIFEST for Test-CheckManifest/ |
|
206
|
11 |
143 |
if $fh_line =~ / \A \s* \# /x |
|
207
|
0 |
143 |
if $selftest and $fh_line =~ /# selftest/ |
|
211
|
11 |
132 |
if (($file) = $fh_line =~ /^'(\\[\\']|.+)+'\s*(.*)/) { } |
|
218
|
0 |
143 |
unless $file |
|
239
|
627 |
0 |
if ($files_in_skip and 'ARRAY' eq ref $files_in_skip) |
|
243
|
0 |
0 |
if $local_file =~ /$regex/ |
|
249
|
569 |
58 |
if ($bool eq 'or') { } |
|
250
|
570 |
0 |
if ref $_ and ref $_ eq 'Regexp' |
|
|
68 |
501 |
if grep {$file =~ /$_/ if ref $_ and ref $_ eq 'Regexp';} @$filter |
|
251
|
234 |
335 |
if grep {$file =~ /^\Q$_\E/;} @$dirref |
|
254
|
2 |
56 |
if $file =~ /$_/ and ref $_ |
|
|
0 |
58 |
if (grep {ref $_ eq 'Regexp' if $file =~ /$_/ and ref $_;} @$filter and grep {not ref $_ if $file =~ /^\Q$_\E/;} @$dirref) |
|
255
|
0 |
6 |
if $file =~ /^\Q$_\E/ |
|
266
|
11 |
0 |
unless $skip and -e $skip |
|
269
|
0 |
0 |
if (-e $skip and not open(my $skip_fh, '<', $skip)) { } |