| line |
true |
false |
branch |
|
20
|
6 |
0 |
if ($attr =~ /^Export_?Lexical$/i) { } |
|
42
|
3 |
0 |
unless (exists &{$caller . '::MODIFY_CODE_ATTRIBUTES';}) |
|
46
|
3 |
0 |
unless (exists &{$caller . '::import';}) |
|
52
|
0 |
3 |
@args ? : |
|
56
|
3 |
0 |
unless (exists &{$caller . '::unimport';}) |
|
60
|
3 |
3 |
if (@args) { } |
|
73
|
2 |
3 |
if ($modifier =~ /^:(silent|warn)$/) |
|
75
|
0 |
2 |
if $modifier_for{$caller} |
|
88
|
0 |
3 |
unless exists $exports_for{$from} |
|
99
|
0 |
6 |
if exists &{$caller . '::' . $sub;} |
|
104
|
9 |
15 |
if $hints->{$key} =~ /(?:^$)|(?:!$sub\b)/ |
|
107
|
15 |
0 |
if $hints->{$key} =~ /(?:^1\b)|(?:\b$sub\b)/ |
|
116
|
6 |
3 |
if (defined $modifier_for{$pkg}) |
|
117
|
3 |
3 |
if ($modifier_for{$pkg} eq ':silent') |
|
121
|
3 |
0 |
if ($modifier_for{$pkg} eq ':warn') |