| line |
true |
false |
branch |
|
41
|
0 |
12 |
if $DONE_INIT |
|
43
|
0 |
12 |
unless @_ |
|
48
|
0 |
12 |
if not $PACKAGE or $PACKAGE eq 'Attribute::GlobalEnable' |
|
51
|
0 |
12 |
unless _export_the_exporter_to($PACKAGE) |
|
54
|
0 |
12 |
if (not $$args{'ENABLE_CHK'} or ref $$args{'ENABLE_CHK'} ne 'HASH') |
|
60
|
0 |
12 |
unless _check_and_build_enable_attr($args) |
|
63
|
0 |
12 |
unless _check_and_build_enable_flags($args) |
|
66
|
0 |
12 |
unless _build_enable_chks($args) |
|
69
|
0 |
12 |
unless _build_attr_exports() |
|
86
|
0 |
12 |
if $@ |
|
103
|
0 |
24 |
if $@ |
|
111
|
0 |
24 |
if $@ |
|
116
|
14 |
10 |
if (%{$$ENABLE_CHK{$attribute};} or %{$$ENABLE_FLAG{$attribute};}) { } |
|
125
|
0 |
24 |
if $@ |
|
139
|
12 |
358 |
if ($db_var =~ /^(\w+?)?_?${key_str}_?(\w+)?$/) |
|
142
|
0 |
6 |
unless $1 or $2 |
|
150
|
6 |
6 |
if ($one) |
|
151
|
6 |
0 |
if ($$args{'ENABLE_CHK'}{$db_var}) |
|
153
|
1 |
5 |
if ($one eq 'NO') { } |
|
|
5 |
0 |
elsif ($one eq 'ALL') { } |
|
163
|
0 |
0 |
if $@ |
|
171
|
6 |
0 |
if $$args{'ENABLE_CHK'}{$db_var} |
|
185
|
0 |
12 |
if (not $$args{'ENABLE_ATTR'} or ref $$args{'ENABLE_ATTR'} ne 'HASH') { } |
|
190
|
0 |
24 |
unless $key =~ /^\w+$/ and $$args{'ENABLE_ATTR'}{$key} =~ /^\w+$/ |
|
208
|
12 |
0 |
if (ref $$args{'ENABLE_FLAG'}{$attr} eq 'ARRAY') { } |
|
214
|
0 |
12 |
if $@ |
|
219
|
0 |
12 |
if $@ |
|
266
|
13 |
10 |
unless %{$$ENABLE_CHK{$attribute};} |
|
269
|
0 |
10 |
unless my $symbol = $_[1] |
|
277
|
3 |
7 |
unless my $debug_level = _is_attribute_on($attribute, $_[0], $chk) |
|
296
|
13 |
21 |
if ($$ENABLE_CHK{$attribute}{"ALL_$debug_str"}) { } |
|
|
3 |
18 |
elsif ($$ENABLE_CHK{$attribute}{"${debug_str}_$chk"}) { } |
|
|
3 |
15 |
elsif ($$ENABLE_CHK{$attribute}{"${debug_str}_$package"}) { } |
|
319
|
7 |
10 |
if $PACKAGE->can($debug_sub) |
|
340
|
14 |
12 |
unless (defined $debug_level) |
|
341
|
14 |
0 |
unless defined $debug_level |
|
353
|
24 |
2 |
unless $debug_level |
|
359
|
12 |
14 |
unless $debug_level |
|
368
|
14 |
13 |
if defined $executable |
|
371
|
0 |
14 |
unless defined $executable |
|
379
|
0 |
26 |
unless my $flag = shift() |
|
381
|
14 |
12 |
unless defined $$ENABLE_FLAG{$attribute}{$flag} |