| line |
true |
false |
branch |
|
28
|
0 |
28 |
unless @_ > 1 |
|
31
|
27 |
1 |
if $h |
|
33
|
0 |
28 |
unless $pkg |
|
34
|
0 |
28 |
unless ref $list eq 'ARRAY' and @$list > 0 |
|
36
|
2 |
26 |
if $h->{'fl_exp_ok'} |
|
37
|
57 |
2 |
unless $h->{'sub_dcrtr'} |
|
40
|
1 |
27 |
defined $h->{'int0'} ? : |
|
43
|
41 |
18 |
unless $h->{'sub'} |
|
44
|
8 |
8 |
if ($WW = join('', @_)) =~ /$qr/i |
|
46
|
10 |
49 |
$@ =~ /$qr/i ? : |
|
72
|
25 |
3 |
$h->{'fl_exp'} ? : |
|
|
0 |
28 |
$constant::VERSION < 1.03 ? : |
|
|
2 |
23 |
$h->{'fl_exp_ok'} ? : |
|
|
25 |
3 |
$h->{'fl_exp'} ? : |
|
|
11 |
17 |
$h->{'fl_decl'} ? : |
|
|
11 |
17 |
$h->{'fl_rev'} ? : |
|
78
|
23 |
5 |
unless ($h->{'fl_no_load'}) |
|
80
|
0 |
23 |
if $@ |
|
84
|
5 |
18 |
if (not $h->{'fl_no_load'} and $h->{'fl_no_ldr'}) |
|
85
|
2 |
3 |
unless $h->{'fl_no_inc_stub'} |
|
90
|
3 |
7 |
unless $fl_set_ldr or $h->{'fl_no_ldr'} |
|
94
|
1 |
27 |
if ($h->{'fl_exp2file'}) |
|
95
|
0 |
1 |
unless defined $h->{'root_dir'} |
|
98
|
0 |
1 |
unless -d $h->{'root_dir'} |
|
101
|
0 |
1 |
unless open my $fh, "> $h->{'root_dir'}/$fn" |
|
106
|
3 |
25 |
if $h->{'sub_post_src'} |