| line |
true |
false |
branch |
|
29
|
0 |
28 |
unless @_ > 1 |
|
32
|
27 |
1 |
if $h |
|
34
|
0 |
28 |
unless $pkg |
|
35
|
0 |
28 |
unless ref $list eq 'ARRAY' and @$list > 0 |
|
37
|
2 |
26 |
if $h->{'fl_exp_ok'} |
|
38
|
57 |
2 |
unless $h->{'sub_dcrtr'} |
|
41
|
1 |
27 |
defined $h->{'int0'} ? : |
|
44
|
41 |
18 |
unless $h->{'sub'} |
|
45
|
8 |
8 |
if ($WW = join('', @_)) =~ /$qr/i |
|
47
|
10 |
49 |
$@ =~ /$qr/i ? : |
|
73
|
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'} ? : |
|
79
|
23 |
5 |
unless ($h->{'fl_no_load'}) |
|
81
|
0 |
23 |
if $@ |
|
85
|
5 |
18 |
if (not $h->{'fl_no_load'} and $h->{'fl_no_ldr'}) |
|
86
|
2 |
3 |
unless $h->{'fl_no_inc_stub'} |
|
91
|
3 |
7 |
unless $fl_set_ldr or $h->{'fl_no_ldr'} |
|
95
|
1 |
27 |
if ($h->{'fl_exp2file'}) |
|
96
|
0 |
1 |
unless defined $h->{'root_dir'} |
|
99
|
0 |
1 |
unless -d $h->{'root_dir'} |
|
102
|
0 |
1 |
unless open my $fh, "> $h->{'root_dir'}/$fn" |
|
107
|
3 |
25 |
if $h->{'sub_post_src'} |