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 |