| lib/Net/Signalet/Client.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 3 | 16 | 18.7 |
| line | true | false | branch |
|---|---|---|---|
| 11 | 0 | 2 | @args == 1 && ref $args[0] eq 'HASH' ? : |
| 15 | 1 | 1 | unless my $sock = 'IO::Socket::INET'->new('Proto', 'tcp', 'PeerAddr', $args{'daddr'}, 'PeerPort', $args{'dport'} || 14550, 'LocalAddr', $args{'saddr'} || undef, 'LocalPort', $args{'sport'} || undef, 'Timeout', $args{'timeout'} || 5) |
| 35 | 0 | 0 | unless (exists $params{'command'} or exists $params{'code'}) |
| 38 | 0 | 0 | if (my $command = $params{'command'}) { } |
| 0 | 0 | elsif ($params{'code'}) { } | |
| 39 | 0 | 0 | if ref $params{'command'} eq 'ARRAY' |
| 44 | 0 | 0 | unless ($pid) |
| 48 | 0 | 0 | if $pid > 0 |