| line |
true |
false |
branch |
|
60
|
0 |
0 |
if ($src =~ /^=cut/u)
|
|
66
|
0 |
0 |
if ($in_pod) { }
|
|
68
|
0 |
0 |
if $src =~ /^=pod/u
|
|
69
|
0 |
0 |
if $src =~ /^=\w+\s*$/u
|
|
75
|
0 |
0 |
if $src =~ /^\s*$/u
|
|
76
|
0 |
0 |
if $src =~ /^\s*#[-#+~= \t]+$/u
|
|
77
|
0 |
0 |
unless $src =~ /^\s*#(.*?)\s*$/u
|
|
128
|
0 |
0 |
if $Perl::LanguageServer::debug3
|
|
130
|
0 |
0 |
if (exists $state{'method_mod'} and $token->{'name'} eq "RawString")
|
|
145
|
0 |
0 |
$decl eq 'our' || !$parent ? :
|
|
149
|
0 |
0 |
$decl eq 'our' ? :
|
|
|
0 |
0 |
$decl ? :
|
|
|
0 |
0 |
$decl eq 'my' ? :
|
|
155
|
0 |
0 |
if $decl
|
|
162
|
0 |
0 |
if (@vars and $vars[-1]{'kind'} == 13)
|
|
169
|
0 |
0 |
if $token->{'name'} eq "RightBrace"
|
|
170
|
0 |
0 |
if (@stack > 0 and $brace_level == $stack[-1]{'brace_level'})
|
|
177
|
0 |
0 |
if defined $start_line
|
|
180
|
0 |
0 |
if ($token->{'name'} eq "SemiColon")
|
|
188
|
0 |
0 |
if (@vars and $vars[-1]{'kind'} == 13)
|
|
195
|
0 |
0 |
if ($token->{'data'} =~ /^\w/u)
|
|
197
|
0 |
0 |
!$parent ? :
|
|
201
|
0 |
0 |
@stack ? :
|
|
|
0 |
0 |
$decl ? :
|
|
206
|
0 |
0 |
if ($decl)
|
|
222
|
0 |
0 |
if ($src and $i = index($src, $func) >= 0)
|
|
232
|
0 |
0 |
if ($func_param)
|
|
235
|
0 |
0 |
if ($$tokens[$token_ndx - 1]{'name'} eq "Assign" and $$tokens[$token_ndx - 2]{'name'} eq "RightParenthesis")
|
|
240
|
0 |
0 |
if $tokens->[$i]{'name'} eq "Comma"
|
|
241
|
0 |
0 |
unless $tokens->[$i]{'name'} =~ /Var$/u
|
|
266
|
0 |
0 |
if ($func_param)
|
|
299
|
0 |
0 |
if (exists $state{'constant'}) { }
|
|
|
0 |
0 |
elsif (exists $state{'scalar'}) { }
|
|
|
0 |
0 |
elsif ($token->{'data'} ~~ ['has', 'class_has']) { }
|
|
|
0 |
0 |
elsif ($token->{'data'} ~~ ['around', 'before', 'after']) { }
|
|
|
0 |
0 |
elsif ($token->{'data'} =~ /^[a-z_][a-z0-9_]+$/iu) { }
|
|
313
|
0 |
0 |
$decl eq 'our' || !$parent ? :
|
|
317
|
0 |
0 |
$decl eq 'our' ? :
|
|
345
|
0 |
0 |
if (exists $state{'has'})
|
|
360
|
0 |
0 |
if ($token->{'data'} eq 'constant') { }
|
|
386
|
0 |
0 |
if (exists $state{'ns'})
|
|
388
|
0 |
0 |
if ($state{'module'}) { }
|
|
391
|
0 |
0 |
if ($state{'is'} eq 'package') { }
|
|
414
|
0 |
0 |
$def ? :
|
|
437
|
0 |
0 |
if ($add)
|
|
439
|
0 |
0 |
if (not $uri) { }
|
|
447
|
0 |
0 |
$endchar ? :
|
|
452
|
0 |
0 |
if $Perl::LanguageServer::debug3
|
|
457
|
0 |
0 |
if $Perl::LanguageServer::debug3
|
|
459
|
0 |
0 |
wantarray ? :
|
|
470
|
0 |
0 |
unless ($self->disable_cache)
|
|
479
|
0 |
0 |
if (-e _)
|
|
485
|
0 |
0 |
if ($mtime_src > $mtime_cache)
|
|
491
|
0 |
0 |
if ($@) { }
|
|
|
0 |
0 |
elsif (ref $cache_data eq 'HASH') { }
|
|
497
|
0 |
0 |
if ($cache_data->{'version'} == 5)
|
|
509
|
0 |
0 |
if ($cachepath)
|
|
511
|
0 |
0 |
unless my $ifh = &aio_open($cachepath, 577, 436)
|
|
539
|
0 |
0 |
if ($dirs)
|
|
543
|
0 |
0 |
if exists $ignore_dir->{$d}
|
|
548
|
0 |
0 |
if ($files)
|
|
552
|
0 |
0 |
unless $f =~ /$filefilter/u
|
|
563
|
0 |
0 |
if $cnt % 100 == 0
|
|
602
|
0 |
0 |
unless basename($fn) =~ /$filefilter/u
|