| blib/lib/Tak/ConnectorService.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 0 | 22 | 0.0 |
| line | true | false | branch |
|---|---|---|---|
| 22 | 0 | 0 | unless $on |
| 25 | 0 | 0 | if ($kid_pid) |
| 26 | 0 | 0 | unless $on eq '-' |
| 31 | 0 | 0 | unless $up eq "Shere\n" |
| 52 | 0 | 0 | if ($on eq '-') { } |
| 0 | 0 | elsif ($on =~ m[^\.?/]) { } | |
| 0 | 0 | elsif ($on =~ /:/) { } | |
| 53 | 0 | 0 | unless my $kid_pid = IPC::Open2::open2(my $kid_out, my $kid_in, 'tak-stdio-node', '-', @args) |
| 57 | 0 | 0 | unless my $sock = 'IO::Socket::UNIX'->new($on) |
| 67 | 0 | 0 | unless my $sock = 'IO::Socket::INET'->new('PeerAddr', $on) |
| 72 | 0 | 0 | if $ssh->error |