| line |
true |
false |
branch |
|
61
|
8 |
29 |
if (defined $cache_directory) |
|
62
|
0 |
8 |
unless ('PPI::Xref'->__is_readwrite_directory($cache_directory)) |
|
81
|
36 |
144 |
unless (defined $self->{'inc_dirs'}) |
|
82
|
35 |
1 |
$self->{'opt'}{'INC'} ? : |
|
83
|
0 |
76 |
if ref $d |
|
84
|
0 |
76 |
unless -d $d and -x $d |
|
100
|
144 |
0 |
unless (exists $self->{'inc_file'}{$file}) |
|
102
|
0 |
295 |
unless ($self->{'opt'}{'__allow_relative'}) |
|
104
|
0 |
0 |
unless 'File::Spec'->file_name_is_absolute($d) |
|
108
|
140 |
155 |
if (-f $f) |
|
113
|
4 |
140 |
unless (exists $self->{'inc_file'}{$file}) |
|
123
|
94 |
79 |
unless (exists $self->{'module_file'}{$module_name}) |
|
139
|
130 |
12096 |
if $n->isa('PPI::Token::Comment') |
|
140
|
13 |
12083 |
if $n->isa('PPI::Token::Pod') |
|
142
|
627 |
11456 |
if $prev_ws and $curr_ws |
|
154
|
182 |
18 |
unless (defined $file_id) |
|
164
|
273 |
49 |
if (exists $self->{'file_packages'} and ref $self->{'file_packages'}{$file_id} and @{$self->{'file_packages'}{$file_id};}) |
|
188
|
154 |
2 |
if (defined $old_package and $old_package ne 'main') |
|
204
|
0 |
100 |
if ($flatten_volume and $^O eq 'MSWin32') |
|
233
|
0 |
64 |
if ($filename =~ /\.\./) |
|
239
|
64 |
0 |
'File::Spec'->file_name_is_absolute($filename) ? : |
|
257
|
1 |
187 |
unless -f $origfilename |
|
259
|
0 |
187 |
unless (open $origfilefh, $origfilename) |
|
277
|
8 |
28 |
unless -d $dir |
|
315
|
0 |
36 |
unless (defined $blob) |
|
320
|
0 |
36 |
unless ($self->__make_path_file($temp)) |
|
327
|
0 |
36 |
unless (sysopen $fh, $temp, 65, 420) |
|
335
|
0 |
36 |
unless (defined $wrote and $wrote == $size) |
|
340
|
0 |
36 |
unless (close $fh) |
|
345
|
0 |
36 |
unless (rename $temp, $file) |
|
355
|
0 |
36 |
if (-f $temp) |
|
367
|
20 |
16 |
if ($self->{'opt'}{'cache_verbose'}) |
|
373
|
152 |
100 |
if (defined $self->{$k}{$file_id}) |
|
394
|
0 |
64 |
if $path eq '-' |
|
397
|
0 |
64 |
unless defined $cache_directory |
|
399
|
0 |
64 |
unless ($self->__is_readwrite_directory($cache_directory)) |
|
404
|
0 |
64 |
unless ($path =~ /\.p[ml]$/) |
|
418
|
35 |
22 |
unless (sysopen $fh, $file, 0) |
|
425
|
0 |
22 |
unless ($read == $size) |
|
436
|
0 |
187 |
if $origfile eq '-' |
|
446
|
56 |
131 |
if (defined $cache_directory) |
|
448
|
56 |
0 |
if (defined $cache_filename) |
|
449
|
25 |
31 |
if ($self->{'opt'}{'cache_verbose'}) |
|
453
|
21 |
35 |
if (defined $cached) { } |
|
454
|
5 |
16 |
if ($self->{'opt'}{'cache_verbose'}) |
|
463
|
20 |
15 |
if ($self->{'opt'}{'cache_verbose'}) |
|
482
|
36 |
0 |
if ($self->__write_cachefile($cache_filename, $hash_current, $file_id, $file_mtime)) { } |
|
484
|
20 |
16 |
if ($self->{'opt'}{'cache_verbose'}) |
|
488
|
35 |
1 |
unless ($had_cache) |
|
492
|
0 |
0 |
if ($self->{'opt'}{'cache_verbose'}) |
|
522
|
5 |
0 |
if (defined $fileloc) { } |
|
534
|
1 |
176 |
if (not defined $doc) { } |
|
540
|
4 |
172 |
unless ($complete) |
|
542
|
0 |
4 |
if (not $pseudo || -f $file) { } |
|
|
0 |
4 |
elsif (not $pseudo || -s $file) { } |
|
562
|
10 |
278 |
if ($file eq '-') { } |
|
|
91 |
187 |
elsif ($self->{'seen_file'}{$file}) { } |
|
|
187 |
0 |
elsif (not $self->{'seen_file'}{$file}++) { } |
|
563
|
0 |
10 |
if ($self->{'opt'}{'process_verbose'}) |
|
568
|
0 |
10 |
unless defined $doc |
|
572
|
0 |
6 |
if ($self->{'opt'}{'process_verbose'} and $self->{'opt'}{'recurse_verbose'}) |
|
576
|
18 |
169 |
if ($self->{'opt'}{'process_verbose'}) |
|
583
|
20 |
167 |
if ($hash_match) { } |
|
590
|
1 |
166 |
unless defined $doc |
|
595
|
36 |
20 |
if (defined $cache_filename and defined $hash_current and not $hash_match) |
|
598
|
30 |
6 |
if ($self->__to_cache($cache_filename, $hash_current, $file_id, $file_mtime)) |
|
600
|
1 |
29 |
if (not $hash_match and defined $cached) |
|
657
|
176 |
0 |
if ($self->{'__incs_flush'}{$file_id}) |
|
691
|
2230 |
7582 |
exists $elem->{'children'} ? : |
|
692
|
1583 |
8229 |
if ($elem->isa('PPI::Token::Structure')) |
|
694
|
558 |
1025 |
if ($elem->content eq '{') { } |
|
|
558 |
467 |
elsif ($elem->content eq '}') { } |
|
697
|
0 |
558 |
if ($scope_depth <= 0) { } |
|
707
|
26 |
532 |
if (defined $prev_package and $package ne $prev_package) |
|
718
|
1922 |
7890 |
if (@children) |
|
719
|
247 |
1675 |
if ($elem->isa('PPI::Statement::Package') and @children >= 2) { } |
|
|
457 |
1218 |
elsif ($elem->isa('PPI::Statement::Sub') and defined $elem->name and not $elem->forward) { } |
|
|
968 |
250 |
elsif ($elem->isa('PPI::Statement')) { } |
|
725
|
247 |
0 |
if (defined $package and length $package) { } |
|
732
|
130 |
117 |
if (defined $prev_package) { } |
|
733
|
130 |
0 |
if ($package ne $prev_package) |
|
753
|
455 |
2 |
unless ($sub =~ /::/) |
|
758
|
0 |
457 |
unless (defined $finish) |
|
777
|
117 |
851 |
unless defined $include |
|
781
|
173 |
678 |
if ($elem->isa('PPI::Statement::Include') and $stmt_content =~ /^(?:use|no|require)$/ and $include->isa('PPI::Token::Word') and not $include_content =~ /^v?5/) { } |
|
|
50 |
628 |
elsif ($stmt_content =~ /^(?:require|do)$/ and $include->isa('PPI::Token::Quote')) { } |
|
795
|
0 |
223 |
unless (defined $include) |
|
802
|
173 |
50 |
if ($including_module) { } |
|
|
50 |
0 |
elsif ($including_file) { } |
|
806
|
5 |
168 |
unless (defined $include_file) |
|
813
|
0 |
50 |
unless (defined $include_file) |
|
817
|
218 |
5 |
if (defined $include_file) |
|
818
|
215 |
3 |
if ($self->{'opt'}{'recurse'}) { } |
|
836
|
558 |
8509 |
if ($elem->isa('PPI::Structure')) { } |
|
838
|
558 |
0 |
if $elem->finish |
|
840
|
558 |
0 |
if $elem->start |
|
847
|
176 |
0 |
if (defined $elem) { } |
|
|
0 |
0 |
elsif (@{$doc->{'children'};}) { } |
|
876
|
32 |
11 |
if ($ref eq '') { } |
|
|
10 |
1 |
elsif ($ref eq 'SCALAR') { } |
|
886
|
1 |
41 |
unless (defined $file_id) |
|
899
|
0 |
0 |
if ($self->{'opt'}{'process_verbose'} or $self->{'opt'}{'cache_verbose'}) |
|
911
|
0 |
0 |
if ($self->{'opt'}{'process_verbose'}) |
|
922
|
8 |
0 |
unless (defined $self->{'result_cache'}{'files'}) |
|
923
|
0 |
8 |
unless $self->{'file_id'} |
|
932
|
1 |
0 |
unless (defined $self->{'result_cache'}{'total_lines'}) |
|
933
|
0 |
1 |
unless $self->{'file_lines'} |
|
949
|
30 |
16 |
unless (defined $self->{'result_cache'}{'__file_ids'}) |
|
950
|
0 |
30 |
unless $FILE_ID |
|
959
|
0 |
6 |
unless $self->{'file_counts'} |
|
966
|
8 |
4 |
unless (defined $self->{'result_cache'}{'modules'}) |
|
967
|
0 |
8 |
unless $self->{'file_modules'} |
|
988
|
4 |
5 |
unless (defined $self->{'result_cache'}{'missing_modules'}) |
|
992
|
1 |
3 |
unless $self->{'file_missing_modules'} |
|
1024
|
0 |
3 |
unless $self->{'modules'} |
|
1032
|
0 |
1 |
unless $self->{'missing_modules_files'}{$module} |
|
1040
|
0 |
1 |
unless $self->{'missing_modules_lines'}{$module} |
|
1042
|
0 |
0 |
unless $PPI::Xref::a->[0] cmp $PPI::Xref::b->[0] |
|
1043
|
1 |
0 |
/^(.+):(\d+)$/ ? : |
|
1051
|
2 |
2 |
unless $self->{'missing_modules_count'}{$module} |
|
1058
|
2 |
1 |
unless (defined $self->{'result_cache'}{'parse_errors_files'}) |
|
1060
|
1 |
1 |
unless exists $self->{'file_parse_errors'} |
|
1083
|
0 |
1 |
unless exists $self->{'file_parse_errors'} |
|
1084
|
0 |
1 |
unless defined $file |
|
1086
|
0 |
1 |
unless defined $file_id |
|
1087
|
0 |
1 |
unless exists $self->{'file_parse_errors'}{$file_id} |
|
1094
|
19 |
2 |
unless (defined $self->{'result_cache'}{$cache}) |
|
1095
|
0 |
19 |
unless $self->{$key} |
|
1120
|
6 |
0 |
unless (defined $self->{'result_cache'}{$cache}) |
|
1121
|
0 |
6 |
unless $self->{$key} |
|
1131
|
0 |
2 |
unless $PPI::Xref::a->[0] cmp $PPI::Xref::b->[0] or $FILE_BY_ID{$PPI::Xref::a->[1]} cmp $FILE_BY_ID{$PPI::Xref::b->[1]} or $PPI::Xref::a->[2] <=> $PPI::Xref::b->[2] |
|
1178
|
70 |
6 |
if ($self->{'ix'} < @{$self->{'it'};}) |
|
1206
|
12 |
12 |
$opt->{'finish'} ? : |
|
|
12 |
34 |
$opt->{'finish'} ? : |
|
|
24 |
46 |
$opt->{'column'} ? : |
|
1236
|
1 |
0 |
unless (defined $self->{'result_cache'}{'__incs_files'}) |
|
1252
|
0 |
5 |
unless $FILE_BY_ID{$PPI::Xref::a->[0]} cmp $FILE_BY_ID{$PPI::Xref::b->[0]} or $PPI::Xref::a->[1] <=> $PPI::Xref::b->[1] or $PPI::Xref::a->[2] <=> $PPI::Xref::b->[2] |
|
1271
|
0 |
0 |
$opt->{'finish'} ? : |
|
|
0 |
7 |
$opt->{'finish'} ? : |
|
|
0 |
7 |
$opt->{'column'} ? : |
|
1288
|
7 |
1 |
if ($self->{'ix'} < @{$self->{'it'};}) |
|
1315
|
0 |
0 |
exists $self->{'file_incs'}{$file_id} ? : |
|
1323
|
0 |
0 |
unless ($seen->{$next_file_id}++) |
|
1328
|
0 |
0 |
if ($s == 0) |
|
1336
|
4 |
0 |
unless (defined $self->{'result_cache'}{'__incs_deps'}) |
|
1341
|
19 |
6 |
if (exists $self->{'file_incs'}{$fi}) |
|
1355
|
9 |
16 |
exists $succ{$s} ? : |
|
1356
|
15 |
10 |
exists $pred{$s} ? : |
|
1357
|
16 |
9 |
if (@s == 0) { } |
|
|
3 |
6 |
elsif (@p == 0) { } |
|
1358
|
7 |
9 |
if (@p == 0) { } |
|
1395
|
0 |
0 |
unless defined $file_id and exists $self->{$key}{$file_id} |
|
1421
|
0 |
0 |
exists $self->{$key} ? : |
|
1425
|
2 |
0 |
exists $self->{'root'} ? : |
|
1429
|
2 |
0 |
exists $self->{'singleton'} ? : |
|
1449
|
1 |
9 |
unless defined $file_id |
|
1450
|
2 |
7 |
if exists $self->{'branch'}{$file_id} |
|
1451
|
3 |
4 |
if exists $self->{'leaf'}{$file_id} |
|
1452
|
3 |
1 |
if exists $self->{'root'}{$file_id} |
|
1453
|
1 |
0 |
if exists $self->{'singleton'}{$file_id} |
|
1471
|
2 |
0 |
if (defined $deps) |
|
1475
|
4 |
8 |
unless (defined $iterself->{'path'} and @{$iterself->{'path'};}) |
|
1476
|
2 |
2 |
unless (defined $iterself->{'roots'}) |
|
1483
|
2 |
0 |
if (exists $self->{'__process'}) |
|
1485
|
0 |
2 |
unless exists $roots{$id} |
|
1491
|
2 |
2 |
unless (defined $root) |
|
1504
|
22 |
8 |
if (exists $deps->{'line'}{$curr}) |
|
1509
|
14 |
28 |
unless ($iterself->{'seen'}{$succ}{$line}++) |
|
1518
|
16 |
14 |
unless ($pushed) |
|
1519
|
16 |
0 |
if (my(@path) = @{$iterself->{'path'};}) |
|
1520
|
8 |
8 |
if $opt->{'reverse_chains'} |
|
1521
|
14 |
2 |
if (@path > 1) { } |
|
1523
|
8 |
6 |
if ($self->{'lastpush'}) |
|
1530
|
0 |
2 |
if (defined $kind and $kind eq 'singleton') |
|
1563
|
8 |
2 |
if (my(@it) = $self->{'it'}{'next'}->($self)) |
|
1588
|
0 |
3 |
unless defined $cache_directory |
|
1590
|
0 |
3 |
if $file =~ /\.\./ |
|
1598
|
0 |
3 |
unless (defined $cache_directory) |
|
1604
|
0 |
3 |
if (not 'File::Spec'->file_name_is_absolute($file) or $file =~ /\.\./ or not $file =~ /_p[ml](?:\Q$CACHE_EXT\E)?$/ || $file =~ /.p[ml]$/) |
|
1612
|
1 |
2 |
$file =~ /\Q$CACHE_EXT\E$/ ? : |
|
1616
|
0 |
3 |
unless ($self->looks_like_cache_file($cache_file)) |
|
1620
|
3 |
0 |
if ($self->{'opt'}{'cache_verbose'}) |
|
1623
|
2 |
1 |
if (unlink $cache_file) |
|
1635
|
0 |
1 |
unless defined $cache_directory |
|
1637
|
0 |
1 |
unless $cache_filename =~ s/\Q$CACHE_EXT\E$// |
|
1640
|
0 |
1 |
unless length $cache_filename > $cache_prefix_length |
|
1643
|
0 |
1 |
unless $prefix =~ m[^\Q$cache_directory\E(?:/|\\)$] |
|
1649
|
0 |
1 |
if ($^O eq 'MSWin32') |
|
1652
|
0 |
0 |
if ($path =~ m[^/([A-Z])(/.+)]) |
|
1654
|
0 |
0 |
if (-f $volpath) |
|
1669
|
0 |
0 |
unless (defined $cache_directory) |
|
1678
|
0 |
0 |
if (/\.p[ml]\Q$CACHE_EXT\E$/) |
|
1696
|
0 |
0 |
if (/\.p[ml]$/) |