| blib/lib/Protocol/DBus/Connect.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 6 | 10 | 60.0 |
| line | true | false | branch |
|---|---|---|---|
| 11 | 2 | 0 | if ($addr_obj->transport eq 'unix') |
| 14 | 0 | 2 | if ($path) { } |
| 18 | 0 | 2 | unless ($path = $addr_obj->attribute('path')) |
| 23 | 0 | 2 | unless (socket my $s, 1, 1, 0) |
| 27 | 1 | 1 | unless (connect $s, Socket::pack_sockaddr_un($path)) |