| line |
true |
false |
branch |
|
208
|
0 |
1 |
unless "Perl_drand48" eq $Config::Config{'randfunc'} |
|
211
|
1 |
0 |
unless eval {
do {
BEGIN {
$^H{'locale'} = '0';
}
require POSIX;
my $orig_locale = POSIX::setlocale(POSIX::LC_CTYPE());
die unless (POSIX::setlocale(POSIX::LC_CTYPE(), 'tr_TR.UTF-8') || '') eq "tr_TR.UTF-8";
my $cmp = lc "I" ne "i";
POSIX::setlocale(POSIX::LC_CTYPE(), $orig_locale);
$cmp
}
} |
|
215
|
1 |
0 |
unless (POSIX::setlocale(POSIX::LC_CTYPE(), 'tr_TR.UTF-8') || '') eq "tr_TR.UTF-8" |
|
231
|
104 |
1 |
$construct ? : |
|
240
|
4 |
1 |
$construct ? : |
|
257
|
1 |
107 |
exists $alias{$name} ? : |
|
258
|
103 |
5 |
if ($introduced{$_}) { } |
|
|
1 |
4 |
elsif (not $removed{$_}) { } |
|
260
|
103 |
0 |
if $introduced{$_} gt $min_version |
|
267
|
7 |
100 |
if ($removed{$_}) |
|
269
|
7 |
0 |
if $removed{$_} lt $max_version |
|
273
|
3 |
104 |
if $action |
|
275
|
1 |
107 |
unless @_ |
|
278
|
7 |
100 |
if ($max_version le $nearest_stable) |
|
279
|
0 |
7 |
if not _is_stable($]) and $max_version eq $nearest_stable |
|
284
|
1 |
99 |
unless $min_version le $] |
|
298
|
107 |
0 |
if _is_stable($]) |
|
305
|
0 |
0 |
@{$introduces{'old'};} ? : |