| line |
true |
false |
branch |
|
39
|
0 |
0 |
unless ref $self |
|
47
|
0 |
0 |
if ($INT or $TERM) |
|
48
|
0 |
0 |
$TERM ? : |
|
55
|
0 |
0 |
if @{$self->{'pending'}} == 0 and $self->{'running'}->count == 0 |
|
60
|
0 |
0 |
unless ($self->{'quiet'}) |
|
64
|
0 |
0 |
@fail ? : |
|
98
|
0 |
0 |
unless $parser->getoptionsfromarray(\@argv, "c|concurrency=i", \($self->{'concurrency'} = 5), "h|help", sub (@) {
$self->show_help;
exit 1;
}
, "s|script=s", \$self->{'script'}, "v|version", sub (@) {
printf "%s %s\n", __PACKAGE__, __PACKAGE__->VERSION;
exit;
}
, "a|ask-sudo-password", \my $ask_sudo_password, "H|host-file=s", \my $host_file, "sudo-password=s", \$self->{'sudo_password'}, "append-hostname!", \(my $append_hostname = 1), "append-time!", \my $append_time, "sudo=s", \$self->{'sudo_user'}, "q|quiet", \$self->{'quiet'}, "F=s", \$self->{'configfile'}) |
|
101
|
0 |
0 |
$host_file ? : |
|
102
|
0 |
0 |
if ($self->{'script'}) { } |
|
108
|
0 |
0 |
unless $self->{'command'} |
|
|
0 |
0 |
unless (@{[] unless $self->{'command'}} or $self->{'script'}) |
|
112
|
0 |
0 |
if ($self->{'script'}) |
|
114
|
0 |
0 |
unless File::Copy::copy($self->{'script'}, $tempfh) |
|
126
|
0 |
0 |
if ($ask_sudo_password) |
|
130
|
0 |
0 |
$host_file ? : |
|
152
|
0 |
0 |
if ($self->{'select'}->count == 0) { } |
|
163
|
0 |
0 |
if ($pid > 0 and my $remove = $self->{'select'}->remove("pid", $pid)) |
|
168
|
0 |
0 |
$pid > 0 ? : |
|
170
|
0 |
0 |
unless ($is_running) |
|
185
|
0 |
0 |
if ($len) { } |
|
|
0 |
0 |
elsif (not defined $len) { } |
|
186
|
0 |
0 |
if (my(@line) = $buffer->add($buf)->get) |
|
188
|
0 |
0 |
if ($ready->{'sudo'} and @line == 1 and $line[0] eq $SUDO_FAIL) |
|
195
|
0 |
0 |
if ($buffer->raw eq $SUDO_PROMPT) |
|
199
|
0 |
0 |
if (my $sudo_password = $self->{'sudo_password'}) { } |
|
209
|
0 |
0 |
if ($errno != 5) |
|
222
|
0 |
0 |
if ($fh) |
|
229
|
0 |
0 |
if (defined $len and $len > 0) { } |
|
244
|
0 |
0 |
if $self->{'sudo_user'} |
|
248
|
0 |
0 |
if (my $script = $self->{'script'}) { } |
|
265
|
0 |
0 |
@{$self->{'command'}} == 1 && $self->{'command'}[0] =~ /$escape/u ? : |
|
276
|
0 |
0 |
if $ssh_at_exit |
|
282
|
0 |
0 |
if ($opt{'append_time'} and $opt{'append_hostname'}) { } |
|
|
0 |
0 |
elsif ($opt{'append_time'}) { } |
|
|
0 |
0 |
elsif ($opt{'append_hostname'}) { } |
|
298
|
0 |
0 |
unless open my $fh, "<", $host_file |
|
302
|
0 |
0 |
if $line =~ /^[^#\s]/u |