| line |
true |
false |
branch |
|
59
|
0 |
0 |
unless (defined $path and -r $path) |
|
87
|
0 |
0 |
unless $command |
|
199
|
0 |
0 |
if $a = first(sub {
not exists $legal{$_};
}
, keys %opts) |
|
205
|
0 |
0 |
if exists $opts{'sendstdout'} |
|
230
|
0 |
0 |
if ($opts{'logic_id'}) { } |
|
251
|
0 |
0 |
unless defined $cleanup |
|
262
|
0 |
0 |
unless (defined $readfunc and defined $writefunc) |
|
264
|
0 |
0 |
if (exists $opts{'command'}) { } |
|
|
0 |
0 |
elsif ($opts{'host'}) { } |
|
266
|
0 |
0 |
if reftype $c and reftype $c eq 'ARRAY' |
|
273
|
0 |
0 |
if ($identity) |
|
277
|
0 |
0 |
if ($port) |
|
281
|
0 |
0 |
if $user and not $host =~ /\@/ |
|
287
|
0 |
0 |
unless $host = $opts{'host'} |
|
292
|
0 |
0 |
if ($host =~ s/:(\d+$)//) |
|
296
|
0 |
0 |
if (reftype $sshoptions and reftype $sshoptions eq 'ARRAY') { } |
|
|
0 |
0 |
elsif ($sshoptions) { } |
|
309
|
0 |
0 |
@test_ssh_options ? : |
|
313
|
0 |
0 |
unless (is_operative("$ssh @test_ssh_options", $host, 'perl -v', $wait)) |
|
315
|
0 |
0 |
unless $opts{'survive'} |
|
320
|
0 |
0 |
$sshoptions[$_] =~ /^-[pli]$/ ? : |
|
322
|
0 |
0 |
if ($sshoptions{-'p'}) |
|
326
|
0 |
0 |
if ($sshoptions{-'i'}) |
|
330
|
0 |
0 |
if $sshoptions{'-l'} and not $host =~ /\@/ |
|
334
|
0 |
0 |
if (reftype $perloptions and reftype $perloptions eq 'ARRAY') { } |
|
|
0 |
0 |
elsif ($perloptions) { } |
|
341
|
0 |
0 |
if ($portdebug and $portdebug =~ /^\d+$/) { } |
|
371
|
0 |
0 |
if (reftype $perloptions and reftype $perloptions eq 'ARRAY') { } |
|
|
0 |
0 |
elsif ($perloptions) { } |
|
378
|
0 |
0 |
if ($portdebug and $portdebug =~ /^\d+$/) { } |
|
403
|
0 |
0 |
if (defined $_[1]) { } |
|
408
|
0 |
0 |
unless defined $_[0] |
|
425
|
0 |
0 |
unless reftype $pushinc eq 'ARRAY' |
|
428
|
0 |
0 |
unless reftype $unshiftinc eq 'ARRAY' |
|
431
|
0 |
0 |
unless reftype $uses eq 'ARRAY' |
|
488
|
0 |
0 |
unless first sub {
$_ eq 'GRID::Machine';
}
, @{$misa;} |
|
490
|
0 |
0 |
if $portdebug |
|
522
|
0 |
0 |
unless reftype $includes eq 'ARRAY' |
|
525
|
0 |
0 |
if $portdebug |
|
537
|
0 |
0 |
if ($type eq 'GRID::Machine::GPRINT') { } |
|
|
0 |
0 |
elsif ($type eq 'GRID::Machine::GPRINTF') { } |
|
547
|
0 |
0 |
if blessed $result and $result->isa('GRID::Machine::Result') |
|
571
|
0 |
0 |
unless $name =~ /^[a-zA-Z_]\w*$/ |
|
585
|
0 |
0 |
if $type eq 'RETURNED' |
|
595
|
0 |
0 |
unless ($code =~ /^#line \d+/m) |
|
605
|
0 |
0 |
if blessed $ok and $ok->type eq 'DIED' |
|
609
|
0 |
0 |
if ($class->can($name)) |
|
618
|
0 |
0 |
if ($args{'around'}) { } |
|
639
|
0 |
0 |
if $class->can($rname) |
|
644
|
0 |
0 |
if blessed $ok and $ok->type eq 'DIED' |
|
648
|
0 |
0 |
if ($args{'around'}) { } |
|
676
|
0 |
0 |
if (UNIVERSAL::isa($name, 'CODE')) |
|
682
|
0 |
0 |
unless $name =~ /^[a-zA-Z_:][\w:]*$/ |
|
684
|
0 |
0 |
if (UNIVERSAL::isa($cref, 'CODE')) { } |
|
689
|
0 |
0 |
if ($name =~ /^.*::(\w+)$/) { } |
|
702
|
0 |
0 |
unless UNIVERSAL::isa($$self{'callbacks'}{$name}, 'CODE') |
|
722
|
0 |
0 |
if substr($$input, pos($$input) - 1, 1) eq '\\' |
|
724
|
0 |
0 |
$1 eq '{' ? : |
|
|
0 |
0 |
unless $level += $1 eq '{' ? 1 : -1 |
|
728
|
0 |
0 |
if $level |
|
742
|
0 |
0 |
unless defined $filename and length $filename > 0 |
|
744
|
0 |
0 |
unless defined $ext |
|
745
|
0 |
0 |
unless -r $filename or $filename =~ /[.]$ext$/ |
|
747
|
0 |
0 |
unless CORE::open my $FILE, $filename |
|
769
|
0 |
0 |
if $$self{'debug'} |
|
774
|
0 |
0 |
if (reftype $exclude eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (defined $exclude) { } |
|
782
|
0 |
0 |
unless UNIVERSAL::isa($alias, 'HASH') |
|
790
|
0 |
0 |
unless (defined $file and -r $file) |
|
814
|
0 |
0 |
if defined $data or defined $end |
|
816
|
0 |
0 |
if (defined $pod) |
|
817
|
0 |
0 |
if $input =~ /\n\n=cut\n/cg |
|
821
|
0 |
0 |
if defined $comment or defined $dq or defined $sq |
|
823
|
0 |
0 |
if (defined $use) |
|
824
|
0 |
0 |
unless $self->eval("use $use")->ok |
|
828
|
0 |
0 |
if (defined $local) |
|
832
|
0 |
0 |
if $@ |
|
839
|
0 |
0 |
if defined $alias{$name} |
|
840
|
0 |
0 |
unless ($exclude{$name}) |
|
842
|
0 |
0 |
if ($filter) |
|
847
|
0 |
0 |
unless $r->ok |
|
865
|
0 |
0 |
if UNIVERSAL::isa($a, 'GRID::Machine::_RemoteStub') |
|
887
|
0 |
0 |
if ($type eq 'GRID::Machine::GPRINT') |
|
892
|
0 |
0 |
if ($type eq 'GRID::Machine::GPRINTF') |
|
897
|
0 |
0 |
if ($type eq 'CALLBACK') |
|
905
|
0 |
0 |
if blessed $result and $result->isa('GRID::Machine::Result') |
|
915
|
0 |
0 |
if $host eq '' |
|
945
|
0 |
0 |
if ($@) |
|
966
|
0 |
0 |
unless defined $host |
|
969
|
0 |
0 |
unless defined $scp |
|
971
|
0 |
0 |
if system "$scp $fname ${host}:$dest" |
|
979
|
0 |
0 |
unless UNIVERSAL::isa($files, 'ARRAY') and @$files |
|
985
|
0 |
0 |
unless ('File::Spec'->file_name_is_absolute($dest)) |
|
991
|
0 |
0 |
unless defined $host |
|
994
|
0 |
0 |
unless defined $scp |
|
1000
|
0 |
0 |
$host eq '' ? : |
|
1002
|
0 |
0 |
if system "$scp @files $host$dest" |
|
1010
|
0 |
0 |
unless UNIVERSAL::isa($files, 'ARRAY') and @$files |
|
1017
|
0 |
0 |
unless defined $host |
|
1020
|
0 |
0 |
unless defined $scp |
|
1026
|
0 |
0 |
unless ('File::Spec'->file_name_is_absolute($_)) |
|
1033
|
0 |
0 |
if system "$scp @files $dest" |
|
1063
|
0 |
0 |
unless (defined $path and -r $path) |
|
1084
|
0 |
0 |
if (-e $abs_auto_path) |
|
1121
|
0 |
0 |
unless (defined $path and -r $path) |
|
1147
|
0 |
0 |
$existsmakefile ? : |
|
1148
|
0 |
0 |
if defined $arg{'make'} |
|
1154
|
0 |
0 |
unless $m->_x($dir)->result |
|
1156
|
0 |
0 |
if $cleandirs |
|
1162
|
0 |
0 |
if $cleanfiles |
|
1164
|
0 |
0 |
unless ($m->_x($target)->result) |
|
1165
|
0 |
0 |
if (@$files) |
|
1168
|
0 |
0 |
if ($make) |
|
1170
|
0 |
0 |
unless $r->ok |
|
1174
|
0 |
0 |
if $keepdir |
|
1183
|
0 |
0 |
unless $file =~ /([\w.-]+)\.tar(\.gz)?$/ |
|
1198
|
0 |
0 |
unless $m->put([$file]) |
|
1219
|
0 |
0 |
unless $r->ok |
|
1223
|
0 |
0 |
unless $r->ok |
|
1225
|
0 |
0 |
if $keepdir |
|
1238
|
0 |
0 |
unless $r->ok |
|
1242
|
0 |
0 |
$host eq '' ? : |
|
1244
|
0 |
0 |
$mode ? : |
|
1251
|
0 |
0 |
wantarray ? : |
|
1259
|
0 |
0 |
if $descriptor =~ s/\|\s*$// |
|
1262
|
0 |
0 |
if $descriptor =~ s/^\s*\|// |
|
1273
|
0 |
0 |
unless defined $command and UNIVERSAL::isa($self, 'GRID::Machine') |
|
1279
|
0 |
0 |
if reftype $command and reftype $command eq 'ARRAY' |
|
1281
|
0 |
0 |
unless $r->ok |
|
1299
|
0 |
0 |
unless defined $command and UNIVERSAL::isa($self, 'GRID::Machine') |
|
1305
|
0 |
0 |
if reftype $command and reftype $command eq 'ARRAY' |
|
1307
|
0 |
0 |
unless $r->ok |
|
1330
|
0 |
0 |
if blessed $ret and $ret->type eq 'DIED' |
|
1335
|
0 |
0 |
if defined $$self{'pid'} |
|
1352
|
0 |
0 |
$wantarray ? : |