| blib/lib/Class/Declare/Hash.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 17 | 32 | 53.1 |
| line | l | !l | condition |
|---|---|---|---|
| 288 | 0 | 2 | $_args->{$_} and delete $_args->{'all'} and last |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 288 | 151 | 2 | 0 | $_args->{$_} and delete $_args->{'all'} |
| 317 | 2 | 0 | 0 | &$__permission__($_, $self, ref $self || $self) and ref $self || !(/^public$/o || /^private$/o || /^protected$/o) |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 258 | 12 | 10 | 0 | ref $self || $self |
| 317 | 1 | 1 | 0 | ref $self || $self |
| 0 | 0 | 0 | ref $self || !(/^public$/o || /^private$/o || /^protected$/o) | |
| 0 | 2 | 0 | &$__permission__($_, $self, ref $self || $self) and ref $self || !(/^public$/o || /^private$/o || /^protected$/o) or do { my(undef, $file, $line, $sub) = caller 0; die "access to $_ attributes denied in call to " . "$sub() at $file line $line\n" } | |
| 318 | 14 | 16 | 112 | /all/o || /backtrace/o |
| 340 | 0 | 20 | 0 | local %_ || grep({not $_{$_}++;} reverse(@isa)) |
| 413 | 29 | 0 | 2 | not defined $depth or $depth > 0 |
| 421 | 29 | 2 | 0 | $r ||= $v |