line |
true |
false |
branch |
19
|
1 |
67 |
unless (defined $perlver) |
22
|
49 |
18 |
unless defined $$config{'lax'} |
23
|
0 |
67 |
if (_env_hasopt('always_lax')) |
27
|
46 |
21 |
if ($perlver =~ /\Av?[\d.]+\z/msx) |
31
|
13 |
8 |
if ($perlver =~ /\Av?[\d._]+(-TRIAL)?\z/msx) |
32
|
11 |
2 |
if ($$config{'lax'} > 0) |
38
|
6 |
2 |
if (2 == $$config{'lax'}) |
62
|
1 |
24 |
unless (exists $$char_map{$char}) |
79
|
0 |
14 |
unless (@tokens) |
82
|
4 |
10 |
if (@tokens < 2) |
124
|
5 |
12 |
if ($version =~ s/-TRIAL\z//msx) |
127
|
6 |
11 |
if ($version =~ s/_(.*)\z/$1/msx) |
130
|
1 |
5 |
if ($prereleasever =~ /_/msx) |
135
|
10 |
6 |
if ($isdev) |
151
|
0 |
6 |
if ($version =~ s/-TRIAL\z//msx) |
154
|
0 |
6 |
if ($version =~ s/\Av//msx) |
161
|
12 |
18 |
if (/\A[_.]\z/msx) |
165
|
12 |
6 |
if (/\A\d\z/msx) |
173
|
0 |
6 |
if ($istrial) |
176
|
0 |
6 |
if ($has_v) |