blib/lib/Object/Remote/Connector/LocalSudo.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 0 | 16 | 0.0 |
line | true | false | branch |
---|---|---|---|
42 | 0 | 0 | unless my $pid = open3(my $foreign_stdin, my $foreign_stdout, $sudo_stderr, @{$self->sudo_perl_command;}) |
45 | 0 | 0 | if ($line eq 'GO') { } |
0 | 0 | elsif ($line =~ /\[sudo\]/) { } | |
49 | 0 | 0 | unless $cb |
53 | 0 | 0 | if ($line and $line ne 'GO') { } |
0 | 0 | elsif (not $line) { } | |
58 | 0 | 0 | unless $line eq 'GO' |
69 | 0 | 0 | if (sysread($sudo_stderr, my $buf, 32768) > 0) { } |