| line |
true |
false |
branch |
|
37
|
55 |
7 |
if ref $self eq "PLS::Parser::Index"
|
|
92
|
0 |
0 |
if ref $text ne "SCALAR"
|
|
106
|
5 |
0 |
if (ref $function ne "IO::Async::Function")
|
|
114
|
0 |
5 |
if (scalar @uris) { }
|
|
138
|
0 |
5 |
length $version ? :
|
|
145
|
0 |
0 |
if length $version and length $current_version and $current_version < $version
|
|
148
|
0 |
4 |
if $self->is_ignored($file)
|
|
150
|
0 |
4 |
if -l $file
|
|
151
|
0 |
4 |
if $self->is_ignored($file)
|
|
168
|
28 |
0 |
if length $sub->{'package'}
|
|
187
|
5 |
0 |
unless scalar @folders
|
|
188
|
0 |
5 |
unless scalar @folders
|
|
192
|
5 |
0 |
if (ref $function ne "IO::Async::Function")
|
|
210
|
0 |
0 |
unless path($path)->subsumes($file)
|
|
239
|
4 |
0 |
if ref $self->files->{$file}{'subs'} ne "ARRAY"
|
|
240
|
4 |
0 |
if ref $self->files->{$file}{'packages'} ne "ARRAY"
|
|
245
|
0 |
0 |
unless scalar @{$self->subs->{$ref};}
|
|
255
|
0 |
0 |
if ($package->{'uri'} eq 'URI::file'->new($file)->as_string) { }
|
|
265
|
0 |
0 |
unless scalar @{$self->packages->{$ref};}
|
|
279
|
0 |
0 |
if (ref $locations ne "ARRAY")
|
|
283
|
0 |
0 |
if ref $external eq "HASH"
|
|
302
|
0 |
0 |
unless ref $found eq "ARRAY"
|
|
306
|
0 |
0 |
if scalar @uris
|
|
317
|
0 |
0 |
if (ref $found ne "ARRAY")
|
|
321
|
0 |
0 |
if ref $external eq "HASH"
|
|
335
|
8 |
0 |
unless -f $plsignore and -r $plsignore
|
|
338
|
0 |
0 |
if length $self->{'ignore_files_mtimes'}{$plsignore} and $self->{'ignore_file_mtimes'}{$plsignore} >= $mtime
|
|
340
|
0 |
0 |
unless open my $fh, "<", $plsignore
|
|
361
|
0 |
0 |
if ref $self->packages ne "HASH"
|
|
369
|
0 |
0 |
if ref $self->subs_by_package ne "HASH"
|
|
389
|
8 |
0 |
unless scalar @ignore_files
|
|
393
|
0 |
0 |
if &any(sub {
|
|
394
|
0 |
0 |
if &any(sub {
|
|
403
|
0 |
0 |
unless scalar @folders
|
|
404
|
0 |
0 |
unless scalar @folders
|
|
411
|
0 |
0 |
if $self->is_ignored($File::Find::dir)
|
|
415
|
0 |
0 |
unless $self->is_perl_file($File::Find::name)
|
|
419
|
0 |
0 |
if &any(sub {
|
|
434
|
0 |
0 |
if -l $file
|
|
435
|
0 |
0 |
unless -f $file
|
|
436
|
0 |
0 |
if &any(sub {
|
|
437
|
0 |
0 |
if $file =~ /\.t$/
|
|
439
|
0 |
0 |
if $file =~ /\.p[lm]$/
|
|
440
|
0 |
0 |
unless open my $fh, "<", $file
|
|
443
|
0 |
0 |
if length $first_line and $first_line =~ /^\s*#!.*perl$/
|
|
479
|
0 |
0 |
$i + 1 <= $#{$line_offsets;} ? :
|
|
481
|
0 |
0 |
if ($current_offset <= $offset and !defined($next_offset) || $next_offset > $offset)
|
|
498
|
0 |
0 |
if -l $file
|
|
540
|
0 |
0 |
if -l $file
|
|
599
|
0 |
0 |
if (length $+{'params'})
|
|
614
|
0 |
0 |
if (substr($$text, 0, pos $$text) =~ /$package_rx/)
|
|
652
|
0 |
0 |
if (substr($$text, 0, pos $$text) =~ /$package_rx/)
|
|
704
|
0 |
0 |
if (substr($$text, 0, pos $$text) =~ /$package_rx/)
|