| line |
true |
false |
branch |
|
36
|
2 |
7 |
if (ref $arg eq 'HASH') { } |
|
|
1 |
6 |
elsif ($arg eq 'package') { } |
|
|
1 |
5 |
elsif ($arg eq 'import') { } |
|
|
5 |
0 |
elsif (exists $Devel::Constants::EXPORT_OK{$arg}) { } |
|
42
|
1 |
0 |
if @_ |
|
46
|
1 |
0 |
if @_ |
|
50
|
1 |
4 |
@_ && !exists($Devel::Constants::EXPORT_OK{$_[0]}) ? : |
|
70
|
10 |
26 |
if (defined $constants{$pkg}) |
|
75
|
0 |
10 |
unless $val |
|
88
|
0 |
3 |
unless my $constants = $constants{$pkg} |
|
93
|
7 |
5 |
if $val & $flag |
|
95
|
1 |
2 |
wantarray ? : |
|
103
|
0 |
1 |
unless my $constants = $constants{$pkg} |
|
104
|
1 |
0 |
if exists $constants->{$val} |