| blib/lib/Perinci/Sub/Util.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 20 | 40 | 50.0 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 77 | 1 | 0 | 1 | $prev and ref $prev->[3] eq "HASH" |
| 1 | 0 | 1 | $prev and ref $prev->[3] eq "HASH" and ref $prev->[3]{'logs'} eq "ARRAY" | |
| 0 | 0 | 1 | $prev and ref $prev->[3] eq "HASH" and ref $prev->[3]{'logs'} eq "ARRAY" and ref $prev->[3]{'logs'}[0] eq "HASH" | |
| 0 | 0 | 1 | $prev and ref $prev->[3] eq "HASH" and ref $prev->[3]{'logs'} eq "ARRAY" and ref $prev->[3]{'logs'}[0] eq "HASH" and $prev->[3]{'logs'}[0]{'stack_trace'} | |
| 136 | 0 | 0 | 0 | $r[0] eq $pkg and $r[1] =~ /^\(eval / |
| line | l | !l | condition |
|---|---|---|---|
| 59 | 3 | 4 | $status //= 500 |
| 61 | 0 | 7 | $meta //= {} |
| 124 | 0 | 0 | $n0 // 0 |
| 126 | 0 | 0 | $Perinci::Sub::Wrapper::default_wrapped_package // "Perinci::Sub::Wrapped" |
| 387 | 0 | 6 | $args{'install_sub'} // 1 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 60 | 2 | 5 | 0 | $msg //= "$caller[3] failed" |
| 62 | 0 | 2 | 0 | $meta->{'prev'} //= $prev |
| 72 | 0 | 2 | 5 | $STACK_TRACE // $INC{'Carp/Always.pm'} |
| 325 | 1 | 3 | 2 | ($args{'wrap_code'} ? sub { $args{'wrap_code'}->($base_code, @_); } : undef) // $args{'output_code'} |
| 3 | 2 | 0 | (($args{'wrap_code'} ? sub { $args{'wrap_code'}->($base_code, @_); } : undef) // $args{'output_code'}) // $base_code |