| blib/lib/Protocol/DBus/Connect.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 4 | 8 | 50.0 |
| line | true | false | branch |
|---|---|---|---|
| 11 | 1 | 0 | if ($addr_obj->transport eq 'unix') |
| 12 | 0 | 1 | unless (my $path = $addr_obj->attribute('path')) |
| 16 | 0 | 1 | unless (socket my $s, 1, 1, 0) |
| 20 | 0 | 1 | unless (connect $s, Socket::pack_sockaddr_un($path)) |