Branch Coverage

blib/lib/App/RemoteCommand.pm
Criterion Covered Total %
branch 0 74 0.0


line true false branch
38 0 0 unless ref $self
46 0 0 if ($INT or $TERM)
47 0 0 $TERM ? :
54 0 0 if @{$self->{'pending'};} == 0 and $self->{'running'}->count == 0
59 0 0 unless ($self->{'quiet'})
63 0 0 @fail ? :
99 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", "App::RemoteCommand", "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'})
102 0 0 $host_file ? :
103 0 0 if ($self->{'script'}) { }
109 0 0 unless $self->{'command'}
0 0 unless (@{[] unless $self->{'command'};} or $self->{'script'})
113 0 0 if ($self->{'script'})
115 0 0 unless File::Copy::copy($self->{'script'}, $tempfh)
127 0 0 if ($ask_sudo_password)
131 0 0 $host_file ? :
155 0 0 if ($self->{'select'}->count == 0) { }
166 0 0 if ($pid > 0 and my $remove = $self->{'select'}->remove("pid", $pid))
171 0 0 $pid > 0 ? :
173 0 0 unless ($is_running)
189 0 0 if ($len) { }
0 0 elsif (not defined $len) { }
190 0 0 if (my(@line) = $buffer->add($buf)->get)
192 0 0 if ($ready->{'sudo'} and @line == 1 and $line[0] eq $SUDO_FAIL)
199 0 0 if ($buffer->raw eq $SUDO_PROMPT)
203 0 0 if (my $sudo_password = $self->{'sudo_password'}) { }
213 0 0 if ($errno != 5)
227 0 0 if ($fh)
234 0 0 if (defined $len and $len > 0) { }
250 0 0 if $self->{'sudo_user'}
254 0 0 if (my $script = $self->{'script'}) { }
272 0 0 @{$self->{'command'};} == 1 && $self->{'command'}[0] =~ /$escape/u ? :
285 0 0 if $ssh_at_exit
292 0 0 if ($opt{'append_time'} and $opt{'append_hostname'}) { }
0 0 elsif ($opt{'append_time'}) { }
0 0 elsif ($opt{'append_hostname'}) { }
310 0 0 unless open my $fh, "<", $host_file
314 0 0 if $line =~ /^[^#\s]/u