| line |
l |
!l&&r |
!l&&!r |
condition |
|
83
|
18 |
2 |
0 |
$$self{'cache'} ||= do {
die "could not open ${file}: $!" unless open my $fh, $file;
local $/ = '';
my(@recs) = map(eval($_), <$fh>);
close $fh;
\@recs
} |
|
162
|
9 |
1 |
0 |
(shift())->{'platform'} ||= do {
sprintf 'perl v%vd on %s', $^V, eval {
do {
require POSIX;
if (my(@u) = POSIX::uname()) {
return "@{[grep(defined($_), @u[0, 4, 2, 3])];}";
}
}
} || $^O unless eval {
do {
local $_ = `$^X -v`;
"perl$1" if $_ and /^This is perl,(.*)/im
}
}
} |
|
172
|
1 |
0 |
0 |
eval {
do {
require POSIX;
if (my(@u) = POSIX::uname()) {
return "@{[grep(defined($_), @u[0, 4, 2, 3])];}";
}
}
} || $^O |