| line |
true |
false |
branch |
|
74
|
1 |
0 |
unless exists $$args{'code'} and defined $$args{'code'}
|
|
77
|
0 |
0 |
unless $doc or $@
|
|
181
|
0 |
0 |
if $debug
|
|
192
|
15 |
6 |
if (ref $token eq 'PPI::Token::Word')
|
|
193
|
1 |
14 |
if ($token->snext_sibling and $token->snext_sibling->content eq '=>')
|
|
199
|
3 |
11 |
if ($parent->isa('PPI::Statement::Include')) { }
|
|
|
0 |
11 |
elsif ($parent->isa('PPI::Statement::Variable')) { }
|
|
|
0 |
11 |
elsif ($parent->isa('PPI::Statement::Compound')) { }
|
|
|
0 |
11 |
elsif ($parent->isa('PPI::Statement::Given')) { }
|
|
|
0 |
11 |
elsif ($parent->isa('PPI::Statement::When')) { }
|
|
|
1 |
10 |
elsif ($parent->isa('PPI::Statement::Scheduled')) { }
|
|
200
|
2 |
1 |
if $content eq $parent->pragma
|
|
203
|
0 |
0 |
if ($content =~ /^(?:my|local|our)$/)
|
|
208
|
0 |
0 |
if ($content =~ /^(?:if|else|elsif|unless|for|foreach|while|my)$/)
|
|
214
|
0 |
0 |
if ($content eq 'given')
|
|
219
|
0 |
0 |
if ($content =~ /^(?:when|default)$/)
|
|
226
|
1 |
10 |
if is_method_call($token)
|
|
227
|
0 |
10 |
if is_subroutine_name($token)
|
|
228
|
2 |
8 |
if grep /^$token$/, @B::Keywords::Barewords
|
|
230
|
1 |
7 |
if grep /^$token$/, @B::Keywords::Filehandles
|
|
232
|
1 |
6 |
if is_package_declaration($token)
|
|
235
|
6 |
0 |
if ($token->next_token)
|
|
240
|
1 |
5 |
if $next_token->content eq '}' and not $token->sprevious_sibling
|
|
243
|
5 |
0 |
if grep /^$token$/, @B::Keywords::Functions
|