| line |
true |
false |
branch |
|
193
|
0 |
1 |
unless "Perl_drand48" eq $Config::Config{'randfunc'} |
|
196
|
0 |
0 |
unless eval {
do {
BEGIN {
$^H{'locale'} = '0';
}
require POSIX;
POSIX::setlocale(POSIX::LC_ALL(), "tr_TR.UTF-8");
lc "I" ne "i"
}
} |
|
212
|
93 |
1 |
$construct ? : |
|
221
|
4 |
1 |
$construct ? : |
|
238
|
1 |
96 |
exists $alias{$name} ? : |
|
239
|
92 |
5 |
if ($introduced{$_}) { } |
|
|
1 |
4 |
elsif (not $removed{$_}) { } |
|
241
|
92 |
0 |
if $introduced{$_} gt $min_version |
|
248
|
7 |
89 |
if ($removed{$_}) |
|
250
|
7 |
0 |
if $removed{$_} lt $max_version |
|
254
|
3 |
93 |
if $action |
|
256
|
1 |
96 |
unless @_ |
|
260
|
96 |
0 |
(my $is_stable = $] =~ /^[0-5]\.[0-9][0-9][02468]/) ? : |
|
266
|
7 |
89 |
if ($max_version le $nearest_stable) |
|
267
|
0 |
7 |
if not $is_stable and $max_version eq $nearest_stable |
|
272
|
24 |
65 |
unless $min_version le $] |
|
279
|
0 |
0 |
@{$introduces{'old'};} ? : |