| line |
true |
false |
branch |
|
46
|
0 |
2 |
if ref $PLS::Server::State::CONFIG ne "HASH"
|
|
49
|
0 |
2 |
if ref $uri ne "URI::file"
|
|
65
|
2 |
0 |
if ref $text eq "SCALAR"
|
|
68
|
0 |
2 |
if length $version and $client_has_version_support
|
|
71
|
0 |
2 |
if $args{'close'}
|
|
75
|
2 |
0 |
if defined $PLS::Server::State::CONFIG->{'syntax'}{'enabled'} and $PLS::Server::State::CONFIG->{'syntax'}{'enabled'}
|
|
77
|
2 |
0 |
if defined $PLS::Server::State::CONFIG->{'perlcritic'}{'enabled'} and $PLS::Server::State::CONFIG->{'perlcritic'}{'enabled'}
|
|
87
|
0 |
1 |
unless length $current_version
|
|
91
|
0 |
1 |
if length $version and $current_version > $version
|
|
110
|
2 |
0 |
if (ref $source eq 'SCALAR') { }
|
|
113
|
0 |
2 |
if ref $temp ne "File::Temp"
|
|
127
|
0 |
0 |
unless open $fh, "<", $path
|
|
146
|
0 |
2 |
unless length $workspace_folder
|
|
151
|
0 |
2 |
if length $new_cwd and -d $new_cwd
|
|
165
|
1 |
0 |
if $line =~ /syntax OK$/
|
|
168
|
0 |
0 |
if $line =~ /Subroutine .+ redefined/
|
|
173
|
0 |
0 |
if (my($error, $file, $line, $area) = $line =~ /^(.+) at (.+?) line (\d+)(, .+)?/)
|
|
175
|
0 |
0 |
if length $area
|
|
177
|
0 |
0 |
if $file ne $path
|
|
221
|
2 |
0 |
unless length $profile and -f $profile and -r $profile
|
|
232
|
0 |
0 |
if ref $source eq "SCALAR"
|