| blib/lib/namespace/local.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 37 | 54 | 68.5 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 346 | 3 | 2 | 0 | $self->{'next'} and not $self->{'next'}{'done'} |
| 358 | 5 | 0 | 0 | $self->{'todo'} and not $self->{'done'} |
| 501 | 57 | 21 | 0 | $table->{$name}{$_} and delete $current->{$name}{$_} |
| 570 | 10 | 0 | 2 | $restrict->{$name}{$type} and not $touch_not->{$name}{$type} |
| 638 | 1598 | 49 | 508 | /^\w+$/ and not $_ =~ /$except/ |
| line | l | !l | condition |
|---|---|---|---|
| 315 | 2 | 23 | $ENV{'PERL_NAMESPACE_LOCAL'} || '' |
| 323 | 33 | 0 | $opt{'caller'} ||= [caller 0] |
| 326 | 0 | 33 | $opt{'action'} ||= '-below' |
| 519 | 9 | 21 | $clear_list ||= [$self->read_names] |
| 520 | 29 | 1 | $table ||= {} |
| 580 | 268 | 0 | $old_table->{$name} || {} |
| 581 | 239 | 29 | $new_table->{$name} || {} |
| 582 | 25 | 243 | $touch_not->{$name} || {} |
| 614 | 3 | 50 | $diff->{$name}{'SCALAR'} ||= \(undef) |
| 653 | 37 | 32 | $list ||= [$self->read_names] |
| 733 | 4 | 2 | &refaddr($new) || 0 |
| 5 | 1 | &refaddr($old) || 0 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 324 | 0 | 33 | 0 | $opt{'except_rex'} ||= qr/^[0-9]+$|^_$/ |
| 325 | 0 | 33 | 0 | $opt{'only_rex'} ||= qr/^/ |
| 327 | 1 | 32 | 0 | $opt{'target'} ||= $opt{'caller'}[0] |
| 328 | 0 | 33 | 0 | $opt{'origin'} ||= join(':', @{$opt{'caller'};}[1, 2]) |
| 564 | 2 | 0 | 0 | $restrict->{$_} or delete $uniq_name{$_} |