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 |