| line |
true |
false |
branch |
|
49
|
0 |
2 |
if ref $PLS::Server::State::CONFIG ne "HASH"
|
|
52
|
0 |
2 |
if ref $uri ne "URI::file"
|
|
68
|
2 |
0 |
if ref $text eq "SCALAR"
|
|
71
|
0 |
2 |
if length $version and $client_has_version_support
|
|
74
|
0 |
2 |
if $args{'close'}
|
|
78
|
2 |
0 |
if $PLS::Server::State::CONFIG->{'syntax'}{'enabled'}
|
|
79
|
2 |
0 |
if $PLS::Server::State::CONFIG->{'perlcritic'}{'enabled'}
|
|
80
|
0 |
2 |
if $PLS::Server::State::CONFIG->{'podchecker'}{'enabled'}
|
|
90
|
0 |
1 |
unless length $current_version
|
|
94
|
0 |
1 |
if length $version and $current_version > $version
|
|
113
|
2 |
0 |
if (ref $source eq 'SCALAR') { }
|
|
116
|
0 |
2 |
if ref $temp ne "File::Temp"
|
|
130
|
0 |
0 |
unless open $fh, "<", $path
|
|
144
|
0 |
2 |
if (not length $suffix or $suffix eq '.pl' or $suffix eq '.t' or $suffix eq '.plx') { }
|
|
|
0 |
2 |
elsif ($suffix eq '.pod') { }
|
|
164
|
2 |
10 |
unless ($rel =~ /\.\./)
|
|
177
|
2 |
0 |
if (length $module and length $relative) { }
|
|
226
|
0 |
0 |
if $line =~ /syntax OK$/
|
|
228
|
0 |
0 |
if (my($error, $file, $line_num, $area) = $line =~ /^(.+) at (.+?) line (\d+)(, .+)?/)
|
|
231
|
0 |
0 |
if $file eq $path
|
|
233
|
0 |
0 |
if ($file ne $path and $file ne $orig_path)
|
|
235
|
0 |
0 |
if $file ne "-e"
|
|
239
|
0 |
0 |
if (length $area)
|
|
241
|
0 |
0 |
if ($area =~ /^, near "/ and not $area =~ /"$/)
|
|
248
|
0 |
0 |
if $1 =~ /"$/
|
|
297
|
2 |
0 |
unless length $profile and -f $profile and -r $profile
|
|
308
|
0 |
0 |
if ref $source eq "SCALAR"
|
|
375
|
0 |
0 |
unless eval {
|
|
392
|
0 |
0 |
if (my($severity, $error, $line_num) = $line =~ /^\**\s*([A-Z]{3,}):\s*(.+) at line (\d+) in file/)
|
|
394
|
0 |
0 |
$severity eq 'ERROR' ? :
|