| line |
true |
false |
branch |
|
185
|
0 |
1 |
unless "Perl_drand48" eq $Config::Config{'randfunc'} |
|
188
|
0 |
0 |
unless eval {
do {
BEGIN {
$^H{'locale'} = '0';
}
require POSIX;
POSIX::setlocale(POSIX::LC_ALL(), "tr_TR.UTF-8");
lc "I" ne "i"
}
} |
|
204
|
86 |
1 |
$construct ? : |
|
213
|
4 |
1 |
$construct ? : |
|
230
|
1 |
89 |
exists $alias{$name} ? : |
|
231
|
85 |
5 |
if ($introduced{$_}) { } |
|
|
1 |
4 |
elsif (not $removed{$_}) { } |
|
233
|
85 |
0 |
if $introduced{$_} gt $min_version |
|
240
|
7 |
82 |
if ($removed{$_}) |
|
242
|
7 |
0 |
if $removed{$_} lt $max_version |
|
246
|
3 |
86 |
if $action |
|
248
|
1 |
89 |
unless @_ |
|
252
|
89 |
0 |
(my $is_stable = $] =~ /^[0-5]\.[0-9][0-9][02468]/) ? : |
|
258
|
7 |
82 |
if ($max_version le $nearest_stable) |
|
259
|
0 |
7 |
if not $is_stable and $max_version eq $nearest_stable |
|
264
|
17 |
65 |
unless $min_version le $] |
|
271
|
0 |
0 |
@{$introduces{'old'};} ? : |