| blib/lib/Protocol/DBus/Client.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 5 | 17 | 29.4 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 105 | 0 | 0 | 2 | $self->_connect and $self->{'_authn'}->go |
| 202 | 0 | 0 | 0 | $self->{'_sent_connect'} and not $self->{'_connected'} |
| 244 | 0 | 0 | 2 | $self->{'_pending_received_messages'} and @{$self->{'_pending_received_messages'};} |
| line | l | !l | condition |
|---|---|---|---|
| 263 | 2 | 0 | $_[0]{'_connection_name'} || die('No connection name known yet!') |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 106 | 0 | 2 | 0 | $self->{'_sent_hello'} ||= do { my $connection_name_sr = \$self->{'_connection_name'}; $self->send_call("path", "/org/freedesktop/DBus", "interface", "org.freedesktop.DBus", "destination", "org.freedesktop.DBus", "member", "Hello")->then(sub { $$connection_name_sr = $_[0]->get_body->[0]; } ) } |
| 139 | 0 | 0 | 1 | $self->{'_sent_connect'} ||= do { if (connect $self->{'_socket'}, $self->{'_address'}) { $self->{'_connected'} = 1; } elsif (not $!{'EINPROGRESS'}) { die "connect($self->{'_human_address'}): $!"; } } |