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