| line |
true |
false |
branch |
|
112
|
0 |
0 |
unless defined $message
|
|
117
|
0 |
0 |
if (not $act =~ /^_/ and $self->can($act)) { }
|
|
120
|
0 |
0 |
unless defined $res
|
|
147
|
5 |
5 |
if (defined $message->{'args'})
|
|
151
|
5 |
5 |
if (defined $message->{'kwargs'})
|
|
179
|
3 |
0 |
if &blessed($x)
|
|
230
|
1 |
0 |
do {
|
|
|
0 |
1 |
do {
|
|
|
0 |
1 |
do {
|
|
|
1 |
0 |
defined $message->{'context'} && $message->{'context'} ne 'scalar' ? :
|
|
277
|
0 |
0 |
do {
|
|
|
0 |
0 |
do {
|
|
|
0 |
0 |
do {
|
|
|
0 |
1 |
defined $message->{'context'} && $message->{'context'} ne 'scalar' ? :
|
|
316
|
0 |
0 |
do {
|
|
|
1 |
0 |
do {
|
|
|
1 |
1 |
do {
|
|
|
2 |
0 |
defined $message->{'context'} && $message->{'context'} ne 'scalar' ? :
|
|
388
|
0 |
1 |
unless $object->isa("HASH")
|
|
435
|
2 |
0 |
if ($name =~ s/^\$//) { }
|
|
|
0 |
0 |
elsif ($name =~ s/^\@//) { }
|
|
|
0 |
0 |
elsif ($name =~ s/^\%//) { }
|
|
489
|
0 |
1 |
unless $object->isa("HASH")
|
|
544
|
2 |
0 |
if ($name =~ s/^\$//) { }
|
|
|
0 |
0 |
elsif ($name =~ s/^\@//) { }
|
|
|
0 |
0 |
elsif ($name =~ s/^\%//) { }
|