| line |
true |
false |
branch |
|
44
|
13 |
6 |
if (/^(\w+::)*\w+$/) { } |
|
61
|
10 |
12 |
unless @_ |
|
65
|
2 |
17 |
if ($INC{$_}) { } |
|
71
|
6 |
11 |
$config->{'Devel::Hide/hidden'} ? : |
|
75
|
2 |
10 |
if (@too_late) |
|
78
|
4 |
0 |
if (_get_setting("verbose") and $config->{'Devel::Hide/hidden'}) |
|
92
|
12 |
6 |
_get_setting('verbose') ? : |
|
126
|
1 |
0 |
defined $ENV{'PERL5OPT'} ? : |
|
146
|
3 |
38 |
_exists_setting('lexical', $name) ? : |
|
185
|
238 |
306 |
if ($type eq 'lexical') { } |
|
186
|
26 |
212 |
if ($phase eq 'compile') { } |
|
192
|
8 |
2974 |
if ($hints_hash and grep {m[^Devel::Hide/];} keys %{$hints_hash;}) |
|
210
|
2 |
6 |
if ($_[0] eq '-lexically') { } |
|
|
1 |
5 |
elsif ($_[0] eq '-from:children') { } |
|
|
5 |
0 |
elsif ($_[0] eq '-quiet') { } |
|
212
|
0 |
2 |
if ($] < "5.01") |
|
224
|
10 |
4 |
if (@_) |
|
229
|
1 |
9 |
if (_get_setting("children")) |
|
230
|
0 |
1 |
_get_setting('verbose') ? : |
|
242
|
1 |
11 |
if (not @HIDDEN and $ENV{'DEVEL_HIDE_PM'}) { } |
|
259
|
18 |
172 |
if (_is_hidden($filename)) { } |