| File: | blib/lib/B/RecDeparse.pm |
| Coverage: | 57.7% |
| line | % | coverage | condition | ||||||||||||||||||||||||||||||||||||||||||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 51 | 12 |
| $^V ge v5.9.5 || $^V lt v5.9.0 && $^V ge v5.8.9 || $Config{'perl_patchlevel'} && $Config{'perl_patchlevel'} >= 31268 | ||||||||||||||||||||||||||||||||||||||||||||||||||||||
| 78 | 100 |
| ref $class || $class || 'B::RecDeparse' | ||||||||||||||||||||||||||||||||||||||||||||||||||||||
| 86 | 100 |
| $_[0]{'brd_level'} < 0 || $_[0]{'brd_cur'} < $_[0]{'brd_level'} | ||||||||||||||||||||||||||||||||||||||||||||||||||||||
| 116 | 67 |
| (caller 1)[0] eq 'B::RecDeparse' and $body =~ s/^$key// | ||||||||||||||||||||||||||||||||||||||||||||||||||||||
| 145 | 100 |
| $$self{'brd_sub'} <= 0 or not $self->_recurse |