line |
!l |
l&&!r |
l&&r |
condition |
76
|
0 |
0 |
0 |
not ref $name and &index($name, '::') == -1 |
|
0 |
0 |
0 |
not ref $name and &index($name, '::') == -1 and &index($name, q[']) == -1 |
608
|
0 |
0 |
0 |
--$limit > 0 and $string =~ s/\A((?:$Char::Elatin8::q_char)+?)$pattern//m |
637
|
0 |
0 |
0 |
--$limit > 0 and length $string > 0 |
650
|
0 |
0 |
0 |
--$limit > 0 and length $string > 0 |
669
|
0 |
0 |
0 |
scalar @split >= 1 and $split[-1] eq '' |
750
|
0 |
0 |
0 |
defined $replacementlist[$i] and $replacementlist[$i] ne '' |
|
0 |
0 |
0 |
defined $replacementlist[-1] and $replacementlist[-1] ne '' |
775
|
0 |
0 |
0 |
@char and not exists $tr{$char[0]} |
792
|
0 |
0 |
0 |
@char and exists $tr{$char[0]} |
|
0 |
0 |
0 |
@char and exists $tr{$char[0]} and $tr{$char[0]} eq $tr{$char} |
874
|
0 |
0 |
0 |
$pos < length $str and $pos <= $position |
894
|
0 |
0 |
0 |
@_ and wantarray |
919
|
0 |
0 |
0 |
@_ and wantarray |
945
|
0 |
0 |
0 |
@_ and wantarray |
970
|
0 |
0 |
0 |
@_ and wantarray |
996
|
0 |
0 |
0 |
@_ and wantarray |
1382
|
0 |
0 |
0 |
0 < $i and $i < $#char |
1550
|
0 |
0 |
0 |
$min le $first and $first le $max |
|
0 |
0 |
0 |
$min le $first and $first le $max and $max le $last |
|
0 |
0 |
0 |
$min eq $first and $max eq $last |
|
0 |
0 |
0 |
$first le $min and $max le $last |
|
0 |
0 |
0 |
$min le $first and $last le $max |
|
0 |
0 |
0 |
$first le $min and $min le $last |
|
0 |
0 |
0 |
$first le $min and $min le $last and $last le $max |
1627
|
0 |
0 |
0 |
$ignorecase and $char[$i] =~ /\A ( \[\: \^? (?:lower|upper) :\] ) \z/mosx |
1628
|
0 |
0 |
0 |
0 < $i and $i < $#char |
1776
|
0 |
0 |
0 |
defined $char[$i + 1] and $char[$i + 1] eq '...' |
1799
|
0 |
0 |
0 |
$length == length $char[$i - 1] and $length == length $char[$i + 1] |
|
0 |
0 |
0 |
length $char[$i - 1] < $length and $length < length $char[$i + 1] |
2446
|
0 |
0 |
0 |
$head ne '' and ($head =~ / \G ($Char::Elatin8::q_char) /gmosx)[-1] ne $pathsep |
2469
|
0 |
0 |
0 |
$head ne '' and ($head =~ / \G ($Char::Elatin8::q_char) /gmosx)[-1] ne $pathsep |
2508
|
0 |
0 |
0 |
$cond eq 'd' and not -d "$head$leaf" |
2520
|
0 |
0 |
0 |
index($leaf, '.') == -1 and length $leaf <= 8 |
|
0 |
0 |
0 |
index($leaf, '.') == -1 and length $leaf <= 8 and index($pattern, '\\.') != -1 |
2590
|
0 |
0 |
0 |
exists $ENV{'HOME'} and $ENV{'HOME'} |
|
0 |
0 |
0 |
exists $ENV{'USERPROFILE'} and $ENV{'USERPROFILE'} |
|
0 |
0 |
0 |
exists $ENV{'HOMEDRIVE'} and exists $ENV{'HOMEPATH'} |
|
0 |
0 |
0 |
exists $ENV{'HOMEDRIVE'} and exists $ENV{'HOMEPATH'} and $ENV{'HOMEDRIVE'} |
|
0 |
0 |
0 |
exists $ENV{'HOMEDRIVE'} and exists $ENV{'HOMEPATH'} and $ENV{'HOMEDRIVE'} and $ENV{'HOMEPATH'} |
2613
|
0 |
0 |
0 |
exists $ENV{'HOME'} and defined $ENV{'HOME'} |
|
0 |
0 |
0 |
exists $ENV{'LOGDIR'} and $ENV{'LOGDIR'} |
2632
|
0 |
0 |
0 |
defined $home and not -d $home |
2723
|
0 |
0 |
0 |
@_ and not wantarray |
line |
l |
!l |
condition |
735
|
0 |
0 |
$_[4] || '' |
845
|
0 |
0 |
$position ||= 0 |
1169
|
0 |
0 |
{'\\D', '${Char::Elatin8::eD}', '\\S', '${Char::Elatin8::eS}', '\\W', '${Char::Elatin8::eW}', '\\d', '[0-9]', '\\s', '\\s', '\\w', '[0-9A-Z_a-z]', '\\C', '[\\x00-\\xFF]', '\\X', 'X', '\\H', '${Char::Elatin8::eH}', '\\V', '${Char::Elatin8::eV}', '\\h', '[\\x09\\x20]', '\\v', '[\\x0A\\x0B\\x0C\\x0D]', '\\R', '${Char::Elatin8::eR}', '\\N', '${Char::Elatin8::eN}', '\\b', '${Char::Elatin8::eb}', '\\B', '${Char::Elatin8::eB}'}->{$char} || '' |
line |
l |
!l&&r |
!l&&!r |
condition |
81
|
0 |
0 |
0 |
$name =~ /^(([^a-z])|(\^[a-z_]+))\z/i or $global{$name} |
589
|
0 |
0 |
0 |
not defined $limit or $limit <= 0 |
668
|
0 |
0 |
0 |
not defined $_[2] or $_[2] == 0 |
870
|
0 |
0 |
0 |
$position ||= length($str) - 1 |
1393
|
0 |
0 |
0 |
length $char[$i - 1] > length $char[$i + 1] or $char[$i - 1] gt $char[$i + 1] |
1972
|
0 |
0 |
0 |
s/ \A \\x(..) - \\x(..) //mosx or s/ \A \\x((..)) //mosx |
2050
|
0 |
0 |
0 |
s/ \A \\x(..) - \\x(..) //mosx or s/ \A \\x((..)) //mosx |
2133
|
177 |
0 |
0 |
eval q[open($_[0],'<',$_[1])] || open($_[0], "< $file\000") |
2143
|
0 |
0 |
0 |
eval q[open($_[0],'>',$_[1])] || open($_[0], "> $file\000") |
2153
|
0 |
0 |
0 |
eval q[open($_[0],'>>',$_[1])] || open($_[0], ">> $file\000") |
2350
|
0 |
0 |
0 |
eval '(getpwnam($1))[7]' || my_home() |
2435
|
0 |
0 |
0 |
$head eq '' or $head =~ /\A [A-Za-z]: \z/mosx |
2505
|
0 |
0 |
0 |
$leaf eq '.' or $leaf eq '..' |
2766
|
0 |
0 |
0 |
$offset > scalar @char or $offset < -1 * scalar(@char) |