| line |
true |
false |
branch |
|
21
|
0 |
22 |
unless my $code = $self->{'code'} |
|
41
|
0 |
1 |
if (ref $code eq 'SCALAR') { } |
|
|
1 |
0 |
elsif (not ref $code) { } |
|
44
|
0 |
1 |
unless (-f $code) |
|
49
|
0 |
1 |
unless open my $fh, $code |
|
101
|
2715 |
22 |
unless $n->isa("PPI::Statement::Variable") and @{[$n->schildren];} >= 5 and $n->schild(0)->isa("PPI::Token::Word") and $n->schild(0)->content =~ /^(my|our|local)$/ and $n->schild(1)->isa('PPI::Structure::Constructor') || $n->schild(1)->isa('PPI::Structure::Block') and $n->schild(2)->isa("PPI::Token::Operator") and $n->schild(2)->content eq "=" |
|
122
|
3610 |
2 |
unless ref $n eq "PPI::Statement" and @{[$n->schildren];} >= 4 and $n->schild(0)->isa('PPI::Structure::Constructor') || $n->schild(0)->isa('PPI::Structure::Block') and $n->schild(1)->isa("PPI::Token::Operator") and $n->schild(1)->content eq "=" |
|
135
|
22 |
2 |
$decl ? : |
|
138
|
3 |
0 |
$lhs->start->content eq '{' ? : |
|
|
21 |
3 |
$lhs->start->content eq '[' ? : |
|
145
|
16 |
8 |
if ($rhs =~ /^(\$\w+);/) { } |