line |
true |
false |
branch |
35
|
0 |
1 |
unless open my $fh, '>', $file |
44
|
0 |
18 |
unless my $doc = shift() |
46
|
0 |
18 |
unless defined $all_statements |
56
|
2 |
57 |
if $statement->$Ref::Util::Rewriter::_isa('PPI::Statement::Compound') |
63
|
73 |
448 |
if $_[1]->isa('PPI::Token::Word') |
64
|
41 |
16 |
unless my $ref_subs = $statement->find(sub {
$_[1]->content eq 'ref' if $_[1]->isa('PPI::Token::Word');
}
) |
82
|
10 |
79 |
if $content eq ';' |
87
|
20 |
59 |
if ($statement_def) |
93
|
16 |
43 |
if (not $statement_def and $sib->$Ref::Util::Rewriter::_isa('PPI::Token::Operator')) { } |
95
|
15 |
1 |
if ($content eq 'eq' or $content eq 'ne') { } |
|
1 |
0 |
elsif (&first(sub {
$content eq $_;
}
, @cond_ops)) { } |
99
|
15 |
0 |
$val_token->$Ref::Util::Rewriter::_isa('PPI::Token::Quote') ? : |
104
|
0 |
15 |
unless ($func) |
122
|
1 |
1 |
$func_args[$idx]->$Ref::Util::Rewriter::_isa('PPI::Token::Whitespace') ? : |
150
|
0 |
16 |
unless $statement_def |
154
|
10 |
6 |
if $sib and $sib->content eq ';' |
174
|
15 |
1 |
if (my $next = $ref_sub->next_sibling) |
175
|
15 |
0 |
if $next->isa('PPI::Token::Whitespace') |
205
|
3 |
3 |
if ($sib->isa('PPI::Token::Quote')) |
206
|
0 |
3 |
unless $sib->content =~ qr/\bref\b/ |
214
|
0 |
3 |
if ($sib->isa('PPI::Token::Quote::Single')) { } |
|
1 |
2 |
elsif ($sib->isa('PPI::Token::Quote::Double')) { } |
|
2 |
0 |
elsif ($sib->isa('PPI::Token::Quote::Literal')) { } |
|
0 |
0 |
elsif ($sib->isa('PPI::Token::Quote::Interpolate')) { } |
224
|
2 |
0 |
if ($sib->content =~ qr/^q(.).*(.)$/) |
234
|
0 |
0 |
if ($sib->string =~ qr/^q(.).*(.)$/) |
243
|
0 |
3 |
unless $content |
268
|
0 |
16 |
unless defined $rest |