line |
true |
false |
branch |
25
|
0 |
0 |
if ($max_conns) |
26
|
0 |
0 |
if ($max_workers) { } |
27
|
0 |
0 |
if $max_conns < $max_workers |
35
|
0 |
0 |
if %opts |
71
|
0 |
0 |
unless my $bit = $debug_channel{$channel} |
73
|
0 |
0 |
if ($debug & $debug_channel{$channel}) |
74
|
0 |
0 |
defined $_ ? : |
82
|
0 |
0 |
if $label =~ m[([,*!()<>/{}])] |
83
|
0 |
0 |
@_ & 1 ? : |
84
|
0 |
0 |
unless defined $opts{'host'} |
85
|
0 |
0 |
unless defined $opts{'batch_mode'} |
101
|
0 |
0 |
if $debug |
103
|
0 |
0 |
if $debug |
110
|
0 |
0 |
unless delete $$self{'in_state'}{$old}{$label} |
112
|
0 |
0 |
if $old eq 'suspended' or $old eq 'waiting' or $old eq 'join_failed' |
117
|
0 |
0 |
if $debug |
119
|
0 |
0 |
if ($$host{'ssh'} and $state eq 'suspended' || $state eq 'waiting' || $state eq 'join_failed') |
123
|
0 |
0 |
if $debug |
147
|
0 |
0 |
if $debug |
178
|
0 |
0 |
if (ref $action eq 'CODE') |
184
|
0 |
0 |
if defined $alias |
186
|
0 |
0 |
unless $action =~ /^(?:command|(?:(?:rsync|scp)_(?:get|put))|join|sub|parsub|here|stop|goto|_notify)$/ |
189
|
0 |
0 |
$action ne 'sub' && ref $_[0] eq 'HASH' ? : |
190
|
0 |
0 |
if %opts and grep(($action eq $_), ('join', 'here')) |
196
|
0 |
0 |
if defined $max and $max < @_ |
200
|
0 |
0 |
if defined $min and $min > @_ |
203
|
0 |
0 |
if ($action eq 'join') { } |
209
|
0 |
0 |
unless (my(@depends) = $self->push($notify_selector, '_notify', {}, $join)) |
218
|
0 |
0 |
if $debug |
219
|
0 |
0 |
if $$in_state{'done'}{$label} |
227
|
0 |
0 |
if $debug |
228
|
0 |
0 |
if $$in_state{'done'}{$label} |
240
|
0 |
0 |
if $debug |
241
|
0 |
0 |
unless $num == $$self{'num_conns'} |
255
|
0 |
0 |
if (defined $_) |
257
|
0 |
0 |
if defined $v |
269
|
0 |
0 |
if $debug |
272
|
0 |
0 |
if $task |
275
|
0 |
0 |
if ($error == 1) |
276
|
0 |
0 |
if ($$host{'state'} eq 'connecting') |
278
|
0 |
0 |
if $task |
279
|
0 |
0 |
if @$queue |
283
|
0 |
0 |
if $debug |
284
|
0 |
0 |
if ($reconnections < $max_reconnections) |
285
|
0 |
0 |
if $debug |
291
|
0 |
0 |
if (ref $on_error eq 'CODE') |
292
|
0 |
0 |
if ($error == 100) { } |
300
|
0 |
0 |
if not defined $on_error or $error == 101 |
303
|
0 |
0 |
if $debug |
305
|
0 |
0 |
if ($on_error == 205) |
306
|
0 |
0 |
if ($error == 1) { } |
|
0 |
0 |
elsif ($error == 102) { } |
325
|
0 |
0 |
if ($on_error == 201) { } |
326
|
0 |
0 |
if ($error == 1) { } |
330
|
0 |
0 |
unless $task |
341
|
0 |
0 |
unless ($on_error == 202 or $on_error == 203 or $on_error == 204) |
349
|
0 |
0 |
if $debug |
352
|
0 |
0 |
if $debug |
353
|
0 |
0 |
if $action eq '_notify' |
357
|
0 |
0 |
if $on_error == 204 |
369
|
0 |
0 |
if $debug |
370
|
0 |
0 |
if $$host{'ssh'} |
380
|
0 |
0 |
if ($ssh->error) |
388
|
0 |
0 |
if $debug |
390
|
0 |
0 |
if ($ssh->wait_for_master(1)) { } |
|
0 |
0 |
elsif ($ssh->error) { } |
391
|
0 |
0 |
if $debug |
403
|
0 |
0 |
unless delete $$join{'depends'}{$label} |
405
|
0 |
0 |
if $debug |
406
|
0 |
0 |
if $failed |
407
|
0 |
0 |
if (not %{$$join{'depends'};}) |
408
|
0 |
0 |
if $debug |
412
|
0 |
0 |
if $debug |
413
|
0 |
0 |
$failed ? : |
430
|
0 |
0 |
unless $state =~ /^(?:waiting|suspended|done|connecting)$/ |
432
|
0 |
0 |
if ($$host{'ssh'}) |
433
|
0 |
0 |
if $debug |
435
|
0 |
0 |
if defined $master_pid |
446
|
0 |
0 |
if $debug |
452
|
0 |
0 |
if $debug |
455
|
0 |
0 |
if defined $label |
457
|
0 |
0 |
if $debug |
458
|
0 |
0 |
unless defined $label |
466
|
0 |
0 |
if (my $max_workers = $$self{'max_workers'}) |
469
|
0 |
0 |
if $debug |
470
|
0 |
0 |
if ($num_workers > $max_workers) |
471
|
0 |
0 |
if $debug |
478
|
0 |
0 |
if $debug |
482
|
0 |
0 |
if ($$self{'abort_all'}) |
489
|
0 |
0 |
if $debug |
490
|
0 |
0 |
if ($action eq 'join') { } |
|
0 |
0 |
elsif ($action eq 'here') { } |
|
0 |
0 |
elsif ($action eq 'stop') { } |
|
0 |
0 |
elsif ($action eq 'goto') { } |
|
0 |
0 |
elsif ($action eq '_notify') { } |
|
0 |
0 |
elsif ($action eq 'sub') { } |
492
|
0 |
0 |
if ($$join{'done'}) |
493
|
0 |
0 |
if $debug |
494
|
0 |
0 |
if ($$join{'failed'}) |
498
|
0 |
0 |
if $debug |
527
|
0 |
0 |
if $debug |
533
|
0 |
0 |
unless ($action eq 'parsub' and $$task[0]{'no_ssh'}) |
534
|
0 |
0 |
unless ($ssh) |
538
|
0 |
0 |
if (my $max_conns = $$self{'max_conns'}) |
539
|
0 |
0 |
if $$self{'num_conns'} >= $max_conns |
541
|
0 |
0 |
if $debug |
546
|
0 |
0 |
if (my $error = $ssh->error) |
555
|
0 |
0 |
unless my $method = $self->can("_start_$action") |
558
|
0 |
0 |
if $debug |
559
|
0 |
0 |
unless (defined $pid) |
572
|
0 |
0 |
if $debug |
583
|
0 |
0 |
if $debug |
585
|
0 |
0 |
unless ($pid) |
586
|
0 |
0 |
unless defined $pid |
588
|
0 |
0 |
if $@ and $debug |
589
|
0 |
0 |
$@ ? : |
599
|
0 |
0 |
if $debug |
608
|
0 |
0 |
if $debug |
618
|
0 |
0 |
if $debug |
628
|
0 |
0 |
if $debug |
638
|
0 |
0 |
if $debug |
652
|
0 |
0 |
if $debug |
657
|
0 |
0 |
if $$task[0] eq 'here' and $$task[2] eq $target |
659
|
0 |
0 |
if ($task or $target eq 'END') |
662
|
0 |
0 |
if $$task[0] eq '_notify' |
667
|
0 |
0 |
if $debug |
675
|
0 |
0 |
if (defined $label) { } |
676
|
0 |
0 |
if $debug |
679
|
0 |
0 |
if ($?) |
682
|
0 |
0 |
unless my $ssh = $$host{'ssh'} |
684
|
0 |
0 |
unless $error or $rc == 255 |
685
|
0 |
0 |
if (defined $or_goto) { } |
686
|
0 |
0 |
if $debug |
696
|
0 |
0 |
if defined $or_goto |
702
|
0 |
0 |
unless defined $label |
704
|
0 |
0 |
if $debug |
706
|
0 |
0 |
unless my $ssh = $$host{'ssh'} |
718
|
0 |
0 |
if $debug |
723
|
0 |
0 |
if (%{$$self{'in_state'}{'running'};}) |
724
|
0 |
0 |
if $debug |
727
|
0 |
0 |
if $pid <= 0 |
728
|
0 |
0 |
if $debug |
733
|
0 |
0 |
if $dontwait |
734
|
0 |
0 |
if $debug |
763
|
0 |
0 |
if $debug |
765
|
0 |
0 |
if $debug |
768
|
0 |
0 |
if $debug |
774
|
0 |
0 |
if $debug |
777
|
0 |
0 |
if ($max_workers) |
778
|
0 |
0 |
if $debug |
779
|
0 |
0 |
if (%$suspended) |
784
|
0 |
0 |
unless my($label) = each %$hash |
789
|
0 |
0 |
if $debug |
797
|
0 |
0 |
if $debug |
798
|
0 |
0 |
if $debug |
799
|
0 |
0 |
if $debug |
801
|
0 |
0 |
if keys %$hosts == keys %$done |
803
|
0 |
0 |
%$connecting ? : |
|
0 |
0 |
%$ready ? : |
813
|
0 |
0 |
if $$hosts{$label}{'error'} |
814
|
0 |
0 |
if $debug |
821
|
0 |
0 |
unless my $host = $$self{'hosts'}{$label} |
828
|
0 |
0 |
if (wantarray) { } |
831
|
0 |
0 |
defined $error ? : |