| File: | local/lib/perl5/Devel/StackTrace/Frame.pm |
| Coverage: | 6.7% |
| line | % | coverage | branch | |
|---|---|---|---|---|
| 13 | 100 | T | F | if $f eq 'args' |
| 64 | 0 | T | F | if ($first) { } |
| 65 | 0 | T | F | defined $$self{'message'} ? : |
| 74 | 0 | T | F | if (my $eval = $self->evaltext) { } |
| 0 | T | F | elsif ($sub eq '(eval)') { } | |
| 75 | 0 | T | F | if ($self->is_require) { } |
| 93 | 0 | T | F | if (my(@a) = $self->args) |
| 97 | 0 | T | F | unless defined $_ |
| 100 | 0 | T | F | if ref $_ |
| 107 | 0 | T | F | exists $$p{'max_arg_length'} ? : |
| 112 | 0 | T | F | if ($max_arg_length and length $_ > $max_arg_length) |
| 120 | 0 | T | F | unless /^-?[\d.]+$/ |
| 127 | 0 | T | F | if (my $e = $@) |
| 128 | 0 | T | F | $e =~ /malformed utf-8/i ? : |
| 139 | 0 | T | F | $$self{'indent'} && !$first ? : |