| blib/lib/Perinci/Sub/Util.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 20 | 40 | 50.0 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 76 | 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'} | |
| 135 | 0 | 0 | 0 | $r[0] eq $pkg and $r[1] =~ /^\(eval / |
| line | l | !l | condition |
|---|---|---|---|
| 58 | 3 | 4 | $status //= 500 |
| 60 | 0 | 7 | $meta //= {} |
| 123 | 0 | 0 | $n0 // 0 |
| 125 | 0 | 0 | $Perinci::Sub::Wrapper::default_wrapped_package // 'Perinci::Sub::Wrapped' |
| 370 | 0 | 1 | $args{'install_sub'} // 1 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 59 | 2 | 5 | 0 | $msg //= "$caller[3] failed" |
| 61 | 0 | 2 | 0 | $meta->{'prev'} //= $prev |
| 71 | 0 | 2 | 5 | $STACK_TRACE // $INC{'Carp/Always.pm'} |
| 314 | 1 | 2 | 1 | ($args{'wrap_code'} ? sub { $args{'wrap_code'}->($base_code, @_); } : undef) // $args{'output_code'} |
| 2 | 1 | 0 | (($args{'wrap_code'} ? sub { $args{'wrap_code'}->($base_code, @_); } : undef) // $args{'output_code'}) // $base_code |