| line |
true |
false |
branch |
|
242
|
0 |
3 |
unless $in |
|
246
|
0 |
3 |
unless my $Document = 'PPI::Document'->new($in) |
|
248
|
0 |
3 |
unless $self->document($Document, $preserve) |
|
252
|
3 |
0 |
if (ref $out eq 'GLOB') { } |
|
272
|
0 |
3 |
unless &_INSTANCE($doc, 'PPI::Document') |
|
283
|
2 |
1 |
if @packages == 1 and $packages[0] eq '!main' |
|
299
|
1 |
2 |
$short eq $fname ? : |
|
307
|
3 |
0 |
unless ($preserve) |
|
339
|
42 |
10 |
unless $chld->isa('PPI::Statement::Include') |
|
340
|
4 |
6 |
if $chld->pragma |
|
365
|
2 |
1 |
unless (@main_pkgs) |
|
378
|
129 |
8 |
unless $stmt_node->class eq 'PPI::Statement::Sub' or $modifier{$mod} |
|
382
|
13 |
843 |
if ($node->class eq 'PPI::Statement::Package') |
|
384
|
13 |
0 |
unless ($pkg_subs{$pkg}{'version'}) |
|
389
|
1 |
12 |
unless (defined $pkg_subs{$pkg}{'inherit'}) |
|
397
|
1 |
12 |
unless (defined $pkg_subs{$pkg}{'used'}) |
|
399
|
1 |
0 |
if $parent |
|
406
|
11 |
8 |
$stmt_node->class eq 'PPI::Statement::Sub' ? : |
|
411
|
23 |
2 |
if /\w/ |
|
413
|
11 |
11 |
if $modifier{$mod} |
|
448
|
4 |
19 |
$si->{'static'} ? : |
|
449
|
1 |
22 |
$si->{'virtual'} ? : |
|
456
|
11 |
12 |
if $mod_types->{$sname} |
|
471
|
2 |
1 |
if ($pname eq '!main') |
|
477
|
1 |
2 |
if $namespace |
|
480
|
0 |
3 |
if $ver |
|
481
|
0 |
3 |
if $rev |
|
484
|
3 |
0 |
if ($used) |
|
496
|
0 |
3 |
if $inherit |
|
507
|
1 |
2 |
if $namespace |
|
523
|
1 |
2 |
unless $pod_tokens |
|
541
|
8 |
19 |
if ($sn->type eq 'head2' and $sn->title =~ /[\w:]+\s*\(.*\)/) |
|
543
|
8 |
0 |
if ($sinfo) |
|
549
|
19 |
8 |
if $sn |
|
560
|
0 |
8 |
unless $long |
|
578
|
2 |
6 |
$name =~ /^_/ ? : |
|
593
|
1 |
14 |
unless my $params = shift() |
|
595
|
7 |
7 |
unless (ref $params) |
|
602
|
4 |
21 |
if ($sig[0] eq '\\') |
|
604
|
2 |
23 |
if ($sig[1] eq '$') |
|
606
|
2 |
23 |
if $ref |
|
616
|
464 |
15 |
unless $chld->isa($name) |
|
617
|
0 |
15 |
if (my(@capture) = $chld->content =~ /$regex/) |
|
673
|
6 |
5 |
unless $node->class eq 'PPI::Statement::Sub' or $node->children > 6 and $node->child(6)->content eq 'sub' |
|
681
|
0 |
9 |
$sname =~ /^_/ ? : |
|
687
|
0 |
4 |
unless my $for = $pom->for->[0] |
|
698
|
14 |
3 |
unless $default |
|
704
|
5 |
4 |
unless $txt |
|
706
|
2 |
2 |
if $def |
|
727
|
7 |
15 |
if ($sub_info->{$subname}) |
|
738
|
4 |
11 |
if ($si) |
|
747
|
11 |
1 |
if $look{$si->{'name'}} |