| line |
true |
false |
branch |
|
40
|
330 |
330 |
if (/\D/) { }
|
|
|
0 |
66 |
unless "PPI::Normal"->register(map({/\D/ ? "PPI::Normal::Standard::$_" : $_;} @METHODS))
|
|
79
|
15 |
0 |
unless $_[1]->isa("PPI::Statement::Include")
|
|
80
|
0 |
0 |
if $_[1]->version
|
|
81
|
0 |
0 |
if $$remove_pragma{$_[1]->pragma}
|
|
90
|
12 |
3 |
unless $_[1]->isa("PPI::Token::Structure")
|
|
91
|
0 |
3 |
unless $_[1]->content eq ";"
|
|
92
|
0 |
3 |
unless my $stmt = $_[1]->parent
|
|
93
|
0 |
3 |
unless $stmt->isa("PPI::Statement")
|
|
94
|
0 |
3 |
if $_[1]->next_sibling
|
|
105
|
8 |
4 |
unless $_[1]->isa("PPI::Token::Word")
|
|
106
|
4 |
0 |
unless $_[1]->content eq "return"
|
|
107
|
0 |
0 |
unless my $stmt = $_[1]->parent
|
|
108
|
0 |
0 |
unless $stmt->isa("PPI::Statement::Break")
|
|
109
|
0 |
0 |
unless $stmt->children == 2
|
|
110
|
0 |
0 |
if $stmt->next_sibling
|
|
111
|
0 |
0 |
unless my $block = $stmt->parent
|
|
112
|
0 |
0 |
unless $block->isa("PPI::Structure::Block")
|