| line |
!l |
l&&!r |
l&&r |
condition |
|
59
|
0 |
0 |
0 |
defined $path and -r $path |
|
262
|
0 |
0 |
0 |
defined $readfunc and defined $writefunc |
|
266
|
0 |
0 |
0 |
reftype $c and reftype $c eq 'ARRAY' |
|
281
|
0 |
0 |
0 |
$user and not $host =~ /\@/ |
|
296
|
0 |
0 |
0 |
reftype $sshoptions and reftype $sshoptions eq 'ARRAY' |
|
330
|
0 |
0 |
0 |
$sshoptions{'-l'} and not $host =~ /\@/ |
|
334
|
0 |
0 |
0 |
reftype $perloptions and reftype $perloptions eq 'ARRAY' |
|
341
|
0 |
0 |
0 |
$portdebug and $portdebug =~ /^\d+$/ |
|
371
|
0 |
0 |
0 |
reftype $perloptions and reftype $perloptions eq 'ARRAY' |
|
378
|
0 |
0 |
0 |
$portdebug and $portdebug =~ /^\d+$/ |
|
547
|
0 |
0 |
0 |
blessed $result and $result->isa('GRID::Machine::Result') |
|
605
|
0 |
0 |
0 |
blessed $ok and $ok->type eq 'DIED' |
|
644
|
0 |
0 |
0 |
blessed $ok and $ok->type eq 'DIED' |
|
742
|
0 |
0 |
0 |
defined $filename and length $filename > 0 |
|
790
|
0 |
0 |
0 |
defined $file and -r $file |
|
905
|
0 |
0 |
0 |
blessed $result and $result->isa('GRID::Machine::Result') |
|
979
|
0 |
0 |
0 |
UNIVERSAL::isa($files, 'ARRAY') and @$files |
|
1010
|
0 |
0 |
0 |
UNIVERSAL::isa($files, 'ARRAY') and @$files |
|
1063
|
0 |
0 |
0 |
defined $path and -r $path |
|
1121
|
0 |
0 |
0 |
defined $path and -r $path |
|
1273
|
0 |
0 |
0 |
defined $command and UNIVERSAL::isa($self, 'GRID::Machine') |
|
1279
|
0 |
0 |
0 |
reftype $command and reftype $command eq 'ARRAY' |
|
1299
|
0 |
0 |
0 |
defined $command and UNIVERSAL::isa($self, 'GRID::Machine') |
|
1305
|
0 |
0 |
0 |
reftype $command and reftype $command eq 'ARRAY' |
|
1330
|
0 |
0 |
0 |
blessed $ret and $ret->type eq 'DIED' |
| line |
l |
!l |
condition |
|
202
|
0 |
0 |
$opts{'debug'} || 0 |
|
211
|
0 |
0 |
$opts{'remotelibs'} || [] |
|
237
|
0 |
0 |
$opts{'log'} || '' |
|
238
|
0 |
0 |
$opts{'err'} || '' |
|
239
|
0 |
0 |
$opts{'report'} || '' |
|
240
|
0 |
0 |
$opts{'tmpdir'} || '' |
|
242
|
0 |
0 |
$opts{'wait'} || 15 |
|
244
|
0 |
0 |
$opts{'ssh'} || 'ssh' |
|
245
|
0 |
0 |
$opts{'sshoptions'} || '' |
|
246
|
0 |
0 |
$opts{'perloptions'} || '' |
|
247
|
0 |
0 |
$opts{'scp'} || 'scp -q -p' |
|
249
|
0 |
0 |
$opts{'prefix'} || 'perl5lib/' |
|
345
|
0 |
0 |
$opts{'perl'} || 'perl -d' |
|
359
|
0 |
0 |
$opts{'perl'} || 'perl' |
|
368
|
0 |
0 |
$opts{'scp'} || 'cp' |
|
379
|
0 |
0 |
$opts{'perl'} || 'perl -d' |
|
390
|
0 |
0 |
$opts{'perl'} || 'perl' |
|
418
|
0 |
0 |
$opts{'startdir'} || '' |
|
420
|
0 |
0 |
$opts{'startenv'} || {} |
|
424
|
0 |
0 |
$opts{'pushinc'} || [] |
|
427
|
0 |
0 |
$opts{'unshiftinc'} || [] |
|
430
|
0 |
0 |
$opts{'uses'} || [] |
|
521
|
0 |
0 |
$opts{'includes'} || [] |
|
771
|
0 |
0 |
$args{'exclude'} || [] |
|
781
|
0 |
0 |
$args{'alias'} || {} |
|
914
|
0 |
0 |
shift() || '' |
|
917
|
0 |
0 |
shift() || 'perl -v' |
|
918
|
0 |
0 |
shift() || 15 |
|
1142
|
0 |
0 |
$arg{'dir'} || die("copyandmake error: Provide a directory\n") |
|
1143
|
0 |
0 |
$arg{'target'} || '' |
|
1144
|
0 |
0 |
$arg{'files'} || [] |
|
1149
|
0 |
0 |
$arg{'makeargs'} || '' |
|
1150
|
0 |
0 |
$arg{'cleanfiles'} || 0 |
|
1151
|
0 |
0 |
$arg{'cleandirs'} || 0 |
|
1152
|
0 |
0 |
$arg{'keepdir'} || 0 |
|
1181
|
0 |
0 |
$arg{'dir'} || die("copytarmake error: Provide a directory\n") |
|
1182
|
0 |
0 |
$arg{'file'} || die("copytarmake error: Provide a tar file\n") |
|
1185
|
0 |
0 |
$arg{'make'} || 'make' |
|
1186
|
0 |
0 |
$arg{'makeargs'} || '' |
|
1189
|
0 |
0 |
$arg{'keepdir'} || 0 |
|
1247
|
0 |
0 |
CORE::open($proc, $command) || die("Can't open <$ssh $host $perl $scriptname>\n") |
|
1287
|
0 |
0 |
IPC::Open2::open2($from_child, $to_child, $c) || die("Can't open2 <$c>\n") |
|
1313
|
0 |
0 |
IPC::Open3::open3($to_child, $from_child, $err_child, $c) || die("Can't open3 <$c>\n") |