| line |
true |
false |
branch |
|
94
|
8 |
0 |
unless defined $self->{'behaviors'} |
|
96
|
8 |
0 |
unless defined $self->{'behavior'} |
|
99
|
0 |
8 |
unless exists $self->{'behaviors'}{$self->{'behavior'}} |
|
110
|
0 |
8 |
$beh ? : |
|
122
|
0 |
16 |
if (scalar @behaviors == 0) |
|
127
|
0 |
16 |
if (scalar @behaviors > 1) |
|
131
|
16 |
0 |
if (scalar @behaviors == 1) |
|
153
|
4 |
4 |
if (exists $self->{'behaviors'}{$name}) |
|
165
|
0 |
36 |
unless (exists $matrix->{$left}{$right}) |
|
186
|
4 |
0 |
if exists $self->{'behaviors'}{$name} |
|
194
|
0 |
0 |
shift() ? : |
|
215
|
82 |
216 |
unless defined $lefttype and defined $self->{'matrix'}{$lefttype} |
|
218
|
82 |
216 |
unless defined $righttype and defined $self->{'matrix'}{$righttype} |
|
220
|
298 |
0 |
if ($self->{'clone'}) |
|
222
|
234 |
64 |
ref $left ? : |
|
223
|
234 |
64 |
ref $right ? : |
|
238
|
0 |
114 |
if (ref $left ne 'HASH' or ref $right ne 'HASH') |
|
250
|
274 |
88 |
exists $right->{$key} ? : |
|
270
|
0 |
32 |
if (ref $arg eq 'HASH') |
|
277
|
16 |
16 |
if (ref $arg eq 'ARRAY') { } |
|
301
|
466 |
12 |
if (my $type = ref $_[0]) |
|
304
|
450 |
16 |
if $type eq 'Hash::Merge' or &blessed($_[0]) and $_[0]->isa('Hash::Merge') |
|
308
|
0 |
28 |
if defined $CONTEXT |
|
309
|
4 |
24 |
unless defined $_global |