| line |
true |
false |
branch |
|
30
|
1 |
0 |
if ref $_[0] eq 'HASH' |
|
31
|
0 |
1 |
if (defined(my $skip = $opts{'skip'})) |
|
33
|
0 |
0 |
ref $skip eq 'ARRAY' ? : |
|
34
|
0 |
0 |
if (ref $s eq 'Regexp') { } |
|
35
|
0 |
0 |
if $file =~ /$s/ |
|
38
|
0 |
0 |
if $file eq $s |
|
49
|
0 |
0 |
@chars > 1 ? : |
|
55
|
1 |
0 |
if ref $_[0] eq 'HASH' |
|
64
|
0 |
1 |
if _skip_file_p(\%opts, $file) |
|
66
|
0 |
1 |
@_ ? : |
|
72
|
0 |
1 |
unless (open $fh, '<', $file) |
|
82
|
1 |
364 |
if /\bpa_test_ignore\b/ |
|
83
|
1 |
363 |
if /\bpa_test_end\b/ |
|
84
|
0 |
363 |
if (my($lines) = /pa_test_skip_lines\(\d+\)/) |
|
90
|
0 |
363 |
if /([^\x00-\x7f]+)/ |
|
93
|
0 |
363 |
if $forbid_control and /([\x00-\x08\x0b-\x1F])/ |
|
96
|
0 |
363 |
if $forbid_tab and /([\x09])/ |
|
99
|
0 |
363 |
if $forbid_cr and /([\x0d])/ |
|
102
|
0 |
363 |
if $require_crlf and /(\x0d(?!\x0a)|(?
|
|
106
|
0 |
363 |
if (@errors) |
|
107
|
0 |
0 |
unless $failed |
|
112
|
0 |
363 |
if $skip_data and /^__DATA__$/ |
|
114
|
0 |
1 |
unless (close $fh) |
|
115
|
0 |
0 |
unless $failed |
|
119
|
0 |
1 |
$failed ? : |
|
124
|
0 |
1 |
if ref $_[0] eq 'HASH' |
|
132
|
0 |
1 |
unless file_is_pure_ascii(\%opts, $file) |
|
139
|
0 |
0 |
if ref $_[0] eq 'HASH' |
|
146
|
0 |
0 |
unless file_is_pure_ascii(\%opts, $file) |
|
153
|
1 |
0 |
if ref $_[0] eq 'HASH' |
|
155
|
0 |
1 |
@_ ? : |
|
160
|
14 |
9 |
if (-d $file) |
|
161
|
0 |
14 |
unless opendir my $dh, $file |
|
166
|
22 |
0 |
if $_ ne 'CVS' and $_ ne '.svn' |
|
170
|
9 |
13 |
if (-f $filename) { } |
|
178
|
9 |
14 |
if (-f $file) |
|
179
|
1 |
8 |
if is_perl($file) |
|
187
|
0 |
0 |
if ref $_[0] eq 'HASH' |
|
189
|
0 |
0 |
@_ ? : |
|
194
|
0 |
0 |
if (-d $file) |
|
195
|
0 |
0 |
unless opendir my $dh, $file |
|
200
|
0 |
0 |
if $_ ne 'CVS' and $_ ne '.svn' |
|
204
|
0 |
0 |
if (-f $filename) { } |
|
212
|
0 |
0 |
if -f $file |
|
218
|
1 |
0 |
if -e 'blib' |
|
225
|
0 |
9 |
if $file =~ /\.PL$/ |
|
226
|
1 |
8 |
if $file =~ /\.p(l|m|od)$/ |
|
227
|
0 |
8 |
if $file =~ /\.t$/ |
|
229
|
0 |
8 |
unless open my $fh, $file |
|
233
|
0 |
8 |
if defined $first and $first =~ /^#!.*perl/ |