| line |
true |
false |
branch |
|
21
|
0 |
26 |
unless @_ > 1 |
|
26
|
25 |
1 |
if $h |
|
28
|
0 |
26 |
unless $pkg |
|
29
|
0 |
26 |
unless ref $list eq 'ARRAY' and @$list > 0 |
|
31
|
2 |
24 |
if $$h{'fl_exp_ok'} |
|
32
|
53 |
2 |
unless $$h{'sub_dcrtr'} |
|
35
|
1 |
25 |
defined $$h{'int0'} ? : |
|
38
|
37 |
18 |
unless $$h{'sub'} |
|
39
|
8 |
8 |
if ($WW = join('', @_)) =~ /$qr/ |
|
41
|
10 |
45 |
$@ =~ /$qr/ ? : |
|
62
|
25 |
1 |
$$h{'fl_exp'} ? : |
|
|
2 |
23 |
$$h{'fl_exp_ok'} ? : |
|
|
25 |
1 |
$$h{'fl_exp'} ? : |
|
|
11 |
15 |
$$h{'fl_decl'} ? : |
|
|
11 |
15 |
$$h{'fl_rev'} ? : |
|
68
|
23 |
3 |
unless ($$h{'fl_no_load'}) |
|
70
|
0 |
23 |
if $@ |
|
74
|
5 |
21 |
if (not $$h{'fl_no_load'} and $$h{'fl_no_ldr'}) |
|
75
|
2 |
3 |
unless $$h{'fl_no_inc_stub'} |
|
79
|
2 |
24 |
unless $fl_set_ldr or $$h{'fl_no_ldr'} |
|
84
|
1 |
25 |
if ($$h{'fl_exp2file'}) |
|
85
|
0 |
1 |
unless -d ($$h{'root_dir'} //= '.') |
|
90
|
0 |
1 |
unless open my $fh, "> $$h{'root_dir'}/$fn" |
|
95
|
1 |
25 |
if $$h{'sub_post_src'} |