| line |
true |
false |
branch |
|
35
|
0 |
5 |
unless my $supported_fields_number = () = caller 0 |
|
93
|
3 |
12 |
if -1 == $idx |
|
108
|
1 |
1 |
unless (defined $fieldname) |
|
142
|
0 |
67 |
unless ('ARRAY' eq ref $caller) |
|
146
|
67 |
0 |
if (@$caller == (() = ('package', 'filename', 'line', 'subroutine', 'hasargs', 'wantarray', 'evaltext', 'is_require', 'hints', 'bitmask', 'hinthash'))) { } |
|
|
0 |
0 |
elsif (@$caller == 3) { } |
|
157
|
2 |
110 |
if ('-format' eq $opt) { } |
|
|
67 |
43 |
elsif ('-level' eq $opt) { } |
|
|
43 |
0 |
elsif ('-skip' eq $opt) { } |
|
230
|
2 |
15 |
if (defined $opts[0]) |
|
237
|
2 |
0 |
if ($opt eq '-format') { } |
|
244
|
14 |
3 |
unless defined $format |
|
245
|
14 |
3 |
if exists $formats{$format} |
|
249
|
0 |
61 |
unless my $percent = $percent{$1} |
|
251
|
61 |
0 |
defined $val ? : |
|
284
|
7 |
3 |
defined $this->{$_} ? : |
|
287
|
11 |
0 |
if not /^_/ |