| line |
true |
false |
branch |
|
35
|
3 |
5 |
if grep {$_ eq '-strict';} @_ |
|
44
|
376 |
2933 |
if $_[1]->isa('PPI::Token::Word') |
|
51
|
0 |
27 |
unless $requires |
|
56
|
0 |
27 |
unless $requires |
|
61
|
274 |
2 |
$value->can('string') ? : |
|
62
|
274 |
2 |
$can_string ? : |
|
66
|
16 |
260 |
if $prereq eq 'perl' |
|
68
|
6 |
254 |
if ($value->isa('PPI::Token::Symbol') or $prereq =~ /\A[^A-Za-z]/) |
|
72
|
3 |
3 |
unless $strict |
|
73
|
3 |
3 |
if $strict |
|
85
|
0 |
509 |
unless $parent_node |
|
86
|
129 |
380 |
if $parent_node->isa('PPI::Document') |
|
88
|
126 |
254 |
if ($parent_node->isa('PPI::Structure::Block')) |
|
91
|
127 |
21 |
if $_[1]->isa('PPI::Token::Word') |
|
93
|
1 |
125 |
unless $on |
|
96
|
95 |
30 |
$word->can('string') ? : |
|
106
|
64 |
254 |
unless $sibling |
|
108
|
64 |
190 |
unless ($sibling->isa('PPI::Token::Operator')) |
|
111
|
175 |
15 |
$value->can('string') ? : |