| line |
true |
false |
branch |
|
38
|
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}) { } |
|
44
|
1 |
0 |
if @_ |
|
48
|
1 |
0 |
if @_ |
|
52
|
1 |
4 |
@_ && !exists($Devel::Constants::EXPORT_OK{$_[0]}) ? : |
|
72
|
10 |
26 |
if (defined $constants{$pkg}) |
|
77
|
0 |
10 |
unless $val |
|
90
|
0 |
3 |
unless my $constants = $constants{$pkg} |
|
95
|
7 |
5 |
if $val & $flag |
|
97
|
1 |
2 |
wantarray ? : |
|
105
|
0 |
1 |
unless my $constants = $constants{$pkg} |
|
106
|
1 |
0 |
if exists $$constants{$val} |