blib/lib/Class/Declare/Dump.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 26 | 43 | 60.4 |
line | l | !l | condition |
---|---|---|---|
390 | 0 | 14 | $_args->{$_} and delete $_args->{'all'} and last |
531 | 0 | 51 | push @dump, $heading and undef $heading |
550 | 0 | 4 | push @dump, $heading and undef $heading |
613 | 0 | 200 | push @dump, $heading and undef $heading |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
390 | 684 | 14 | 0 | $_args->{$_} and delete $_args->{'all'} |
421 | 4 | 10 | 0 | &$__permission__($_, $self, ref $self || $self) and ref $self || !(/^public$/o || /^private$/o || /^protected$/o) |
505 | 122 | 148 | 0 | $length < length $_ and $length = length $_ |
589 | 68 | 132 | 0 | ref $value and $_args->{'backtrace'} |
line | l | !l | condition |
---|---|---|---|
377 | 94 | 0 | $_args->{'indent'} ||= 0 |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
348 | 70 | 26 | 0 | ref $self || $self |
421 | 12 | 2 | 0 | ref $self || $self |
10 | 0 | 0 | ref $self || !(/^public$/o || /^private$/o || /^protected$/o) | |
10 | 4 | 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" } | |
422 | 61 | 61 | 427 | /all/o || /friends/o || /indent/o || /backtrace/o |
456 | 0 | 88 | 0 | local %_ || grep({not $_{$_}++;} reverse(@isa)) |
594 | 40 | 71 | 0 | $__REFERENCES__{$self} || $self |