| line |
true |
false |
branch |
|
42
|
21 |
118 |
if $elem->content ne "="
|
|
45
|
0 |
118 |
unless $destination
|
|
47
|
0 |
0 |
unless $destination = $destination->sprevious_sibling
|
|
51
|
0 |
118 |
if (my $var = $self->_is_non_local_magic_dest($destination))
|
|
68
|
61 |
29 |
if $modifier and $modifier->isa("PPI::Token::Word") and $$local_or_my{$modifier->content}
|
|
73
|
57 |
0 |
if ($elem->isa('PPI::Token::Symbol')) { }
|
|
|
0 |
0 |
elsif ($elem->isa('PPI::Structure::List') or $elem->isa('PPI::Statement::Expression')) { }
|
|
74
|
0 |
57 |
$self->_is_magic_var($elem) ? :
|
|
82
|
0 |
0 |
if $var
|
|
95
|
0 |
57 |
if $self->{'_allow'}{$variable_name}
|
|
96
|
0 |
57 |
if $elem->isa("PPI::Token::Magic")
|
|
101
|
57 |
0 |
unless is_perl_global($elem)
|