| line |
true |
false |
branch |
|
40
|
0 |
0 |
unless ref $self |
|
48
|
0 |
0 |
if ($INT or $TERM) |
|
49
|
0 |
0 |
$TERM ? : |
|
56
|
0 |
0 |
if @{$self->{'pending'};} == 0 and $self->{'running'}->count == 0 |
|
61
|
0 |
0 |
unless ($self->{'quiet'}) |
|
65
|
0 |
0 |
@fail ? : |
|
83
|
0 |
0 |
unless &GetOptions('c|concurrency=i', \($self->{'concurrency'} = 5), 'h|help', sub {
pod2usage('verbose', 99, 'sections', 'SYNOPSIS|OPTIONS|EXAMPLES');
}
, 's|script=s', \$self->{'script'}, 'v|version', sub {
printf "%s %s\n", 'App::RemoteCommand', $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'}) |
|
86
|
0 |
0 |
$host_file ? : |
|
87
|
0 |
0 |
if ($self->{'script'}) { } |
|
93
|
0 |
0 |
unless $self->{'command'} |
|
|
0 |
0 |
unless (@{[] unless $self->{'command'};} or $self->{'script'}) |
|
97
|
0 |
0 |
if ($self->{'script'}) |
|
99
|
0 |
0 |
unless File::Copy::copy($self->{'script'}, $tempfh) |
|
111
|
0 |
0 |
if ($ask_sudo_password) |
|
115
|
0 |
0 |
$host_file ? : |
|
139
|
0 |
0 |
if ($self->{'select'}->count == 0) { } |
|
150
|
0 |
0 |
if ($pid > 0 and my $remove = $self->{'select'}->remove('pid', $pid)) |
|
155
|
0 |
0 |
$pid > 0 ? : |
|
157
|
0 |
0 |
unless ($is_running) |
|
173
|
0 |
0 |
if ($len) { } |
|
|
0 |
0 |
elsif (not defined $len) { } |
|
174
|
0 |
0 |
if (my(@line) = $buffer->add($buf)->get) |
|
176
|
0 |
0 |
if ($ready->{'sudo'} and @line == 1 and $line[0] eq $SUDO_FAIL) |
|
183
|
0 |
0 |
if ($buffer->raw eq $SUDO_PROMPT) |
|
187
|
0 |
0 |
if (my $sudo_password = $self->{'sudo_password'}) { } |
|
197
|
0 |
0 |
if ($errno != 5) |
|
211
|
0 |
0 |
if ($fh) |
|
218
|
0 |
0 |
if (defined $len and $len > 0) { } |
|
234
|
0 |
0 |
if $self->{'sudo_user'} |
|
238
|
0 |
0 |
if (my $script = $self->{'script'}) { } |
|
256
|
0 |
0 |
@{$self->{'command'};} == 1 && $self->{'command'}[0] =~ /$escape/ ? : |
|
269
|
0 |
0 |
if $ssh_at_exit |
|
276
|
0 |
0 |
if ($opt{'append_time'} and $opt{'append_hostname'}) { } |
|
|
0 |
0 |
elsif ($opt{'append_time'}) { } |
|
|
0 |
0 |
elsif ($opt{'append_hostname'}) { } |
|
294
|
0 |
0 |
unless open my $fh, '<', $host_file |
|
298
|
0 |
0 |
if $line =~ /^[^#\s]/ |