| blib/lib/Object/InsideOut/Chained.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 21 | 29 | 72.4 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 157 | 3 | 3 | 7 | $restr and exists $restr->{$class}{$name} |
| line | l | !l | condition |
|---|---|---|---|
| 13 | 3 | 2 | $g_ch->{'new'}{'td'} || [] |
| 14 | 3 | 2 | $g_ch->{'new'}{'bu'} || [] |
| 40 | 2 | 0 | $info->{'exempt'} || '' |
| 69 | 0 | 3 | $info->{'exempt'} || '' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 31 | 12 | 6 | 0 | $info->{'name'} ||= sub_name($info->{'code'}, ':CHAINED', $info->{'loc'}) |
| 46 | 3 | 8 | 0 | $info->{'name'} ||= sub_name($info->{'code'}, ':CHAINED(BOTTOM UP)', $info->{'loc'}) |
| 53 | 0 | 0 | 0 | $other_package->isa($package) or $package->isa($other_package) |
| 149 | 10 | 3 | 0 | ref $thing || $thing |
| 159 | 1 | 4 | 2 | grep {$_ eq $caller;} @{$$restr{$class}{$name};} or $caller->isa($class) |
| 5 | 1 | 1 | grep {$_ eq $caller;} @{$$restr{$class}{$name};} or $caller->isa($class) or $class->isa($caller) |