| 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 |