| line |
true |
false |
branch |
|
140
|
186 |
0 |
unless @_ |
|
152
|
0 |
3 |
if $args{'runs_native'} |
|
213
|
50 |
208 |
if $$slot[1]($self, $obj) |
|
219
|
28 |
9 |
exists $self->_dic->{$type} ? : |
|
224
|
1 |
0 |
unless $self->is_type($type) |
|
230
|
0 |
2 |
unless blessed $obj |
|
262
|
76 |
9 |
unless $$slot[0] eq $class |
|
275
|
0 |
13 |
if ($klass eq $class) |
|
280
|
4 |
9 |
if isa($class, $klass) |
|
287
|
9 |
6 |
$self->is_type($class) ? : |
|
309
|
1 |
12 |
unless $self->is_type($type) |
|
313
|
11 |
11 |
if $code |
|
321
|
1 |
7 |
unless $self->is_type($type) |
|
326
|
8 |
12 |
unless $code |
|
327
|
6 |
6 |
if $count |
|
355
|
79 |
20 |
unless isa($class, $$meth[0]) |
|
365
|
31 |
20 |
unless isa($class, $$meth[0]) |
|
366
|
9 |
11 |
if $count |
|
394
|
11 |
8 |
$class ? : |
|
407
|
0 |
0 |
if (*{$glob;}{'CODE'}) { } |
|
410
|
0 |
0 |
if $code |
|
416
|
0 |
0 |
if $code |
|
426
|
12 |
6 |
if ($class) |
|
428
|
1 |
11 |
if ($class eq 'UNIVERSAL') { } |
|
430
|
1 |
0 |
if $uni |
|
436
|
9 |
2 |
if $code |
|
438
|
0 |
2 |
if ($self->runs_native) |
|
440
|
0 |
0 |
if $code |
|
443
|
1 |
1 |
if $uni |