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]$/) |