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 |
596
|
0 |
0 |
0 |
--$limit > 0 and $string =~ s/\A((?:$Char::Elatin4::q_char)+?)$pattern//m |
625
|
0 |
0 |
0 |
--$limit > 0 and length $string > 0 |
638
|
0 |
0 |
0 |
--$limit > 0 and length $string > 0 |
657
|
0 |
0 |
0 |
scalar @split >= 1 and $split[-1] eq '' |
738
|
0 |
0 |
0 |
defined $replacementlist[$i] and $replacementlist[$i] ne '' |
|
0 |
0 |
0 |
defined $replacementlist[-1] and $replacementlist[-1] ne '' |
763
|
0 |
0 |
0 |
@char and not exists $tr{$char[0]} |
780
|
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} |
862
|
0 |
0 |
0 |
$pos < length $str and $pos <= $position |
882
|
0 |
0 |
0 |
@_ and wantarray |
907
|
0 |
0 |
0 |
@_ and wantarray |
933
|
0 |
0 |
0 |
@_ and wantarray |
958
|
0 |
0 |
0 |
@_ and wantarray |
984
|
0 |
0 |
0 |
@_ and wantarray |
1370
|
0 |
0 |
0 |
0 < $i and $i < $#char |
1538
|
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 |
1615
|
0 |
0 |
0 |
$ignorecase and $char[$i] =~ /\A ( \[\: \^? (?:lower|upper) :\] ) \z/mosx |
1616
|
0 |
0 |
0 |
0 < $i and $i < $#char |
1764
|
0 |
0 |
0 |
defined $char[$i + 1] and $char[$i + 1] eq '...' |
1787
|
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] |
2434
|
0 |
0 |
0 |
$head ne '' and ($head =~ / \G ($Char::Elatin4::q_char) /gmosx)[-1] ne $pathsep |
2457
|
0 |
0 |
0 |
$head ne '' and ($head =~ / \G ($Char::Elatin4::q_char) /gmosx)[-1] ne $pathsep |
2496
|
0 |
0 |
0 |
$cond eq 'd' and not -d "$head$leaf" |
2508
|
0 |
0 |
0 |
index($leaf, '.') == -1 and length $leaf <= 8 |
|
0 |
0 |
0 |
index($leaf, '.') == -1 and length $leaf <= 8 and index($pattern, '\\.') != -1 |
2578
|
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'} |
2601
|
0 |
0 |
0 |
exists $ENV{'HOME'} and defined $ENV{'HOME'} |
|
0 |
0 |
0 |
exists $ENV{'LOGDIR'} and $ENV{'LOGDIR'} |
2620
|
0 |
0 |
0 |
defined $home and not -d $home |
2711
|
0 |
0 |
0 |
@_ and not wantarray |
line |
l |
!l |
condition |
723
|
0 |
0 |
$_[4] || '' |
833
|
0 |
0 |
$position ||= 0 |
1157
|
0 |
0 |
{'\\D', '${Char::Elatin4::eD}', '\\S', '${Char::Elatin4::eS}', '\\W', '${Char::Elatin4::eW}', '\\d', '[0-9]', '\\s', '\\s', '\\w', '[0-9A-Z_a-z]', '\\C', '[\\x00-\\xFF]', '\\X', 'X', '\\H', '${Char::Elatin4::eH}', '\\V', '${Char::Elatin4::eV}', '\\h', '[\\x09\\x20]', '\\v', '[\\x0A\\x0B\\x0C\\x0D]', '\\R', '${Char::Elatin4::eR}', '\\N', '${Char::Elatin4::eN}', '\\b', '${Char::Elatin4::eb}', '\\B', '${Char::Elatin4::eB}'}->{$char} || '' |
line |
l |
!l&&r |
!l&&!r |
condition |
81
|
0 |
0 |
0 |
$name =~ /^(([^a-z])|(\^[a-z_]+))\z/i or $global{$name} |
577
|
0 |
0 |
0 |
not defined $limit or $limit <= 0 |
656
|
0 |
0 |
0 |
not defined $_[2] or $_[2] == 0 |
858
|
0 |
0 |
0 |
$position ||= length($str) - 1 |
1381
|
0 |
0 |
0 |
length $char[$i - 1] > length $char[$i + 1] or $char[$i - 1] gt $char[$i + 1] |
1960
|
0 |
0 |
0 |
s/ \A \\x(..) - \\x(..) //mosx or s/ \A \\x((..)) //mosx |
2038
|
0 |
0 |
0 |
s/ \A \\x(..) - \\x(..) //mosx or s/ \A \\x((..)) //mosx |
2121
|
177 |
0 |
0 |
eval q[open($_[0],'<',$_[1])] || open($_[0], "< $file\000") |
2131
|
0 |
0 |
0 |
eval q[open($_[0],'>',$_[1])] || open($_[0], "> $file\000") |
2141
|
0 |
0 |
0 |
eval q[open($_[0],'>>',$_[1])] || open($_[0], ">> $file\000") |
2338
|
0 |
0 |
0 |
eval '(getpwnam($1))[7]' || my_home() |
2423
|
0 |
0 |
0 |
$head eq '' or $head =~ /\A [A-Za-z]: \z/mosx |
2493
|
0 |
0 |
0 |
$leaf eq '.' or $leaf eq '..' |
2754
|
0 |
0 |
0 |
$offset > scalar @char or $offset < -1 * scalar(@char) |