| line |
true |
false |
branch |
|
331
|
9 |
42 |
unless my($sigil, $context, $member) = $self->parse_variable($var) |
|
337
|
12 |
4 |
unless (defined wantarray) |
|
343
|
0 |
4 |
if (wantarray) |
|
368
|
0 |
3 |
unless defined(my $sub = $object->can($method)) |
|
386
|
1 |
0 |
if (ref $invocant eq 'CODE') |
|
486
|
0 |
6 |
unless my $sub = $self->compile($code) |
|
513
|
9 |
42 |
unless my($sigil, $context, $member) = $var =~ /^([\$\@\%])(?!_)(?:([^_]*)_)?(\S+)/ |
|
518
|
27 |
15 |
if (defined $context) |
|
519
|
18 |
9 |
if (exists $$self{'context'}{$context}) |
|
520
|
9 |
9 |
if $context eq 'arg' |
|
551
|
41 |
1 |
if ($sigil eq '$') |
|
552
|
1 |
40 |
unless exists $$hash{$member} |
|
556
|
1 |
0 |
if ($sigil eq '@') { } |
|
|
0 |
0 |
elsif ($sigil eq '%') { } |
|
557
|
1 |
0 |
unless exists $$hash{$member} |
|
560
|
0 |
0 |
unless exists $$hash{$member} |