| blib/lib/Win32/Girder/IEvent/Client.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 7 | 14 | 50.0 |
| line | true | false | branch |
|---|---|---|---|
| 80 | 1 | 0 | if (defined($addr = $opts{'PeerAddr'}) or defined($addr = $opts{'PeerHost'})) { } |
| 84 | 1 | 0 | unless ($addr =~ /:/) |
| 85 | 0 | 1 | unless (defined(my $addr = $opts{'PeerPort'})) |
| 98 | 1 | 0 | if (defined(my $pass = $opts{'PassWord'})) { } |
| 107 | 1 | 0 | if ($cookie) { } |
| 111 | 0 | 1 | unless (local $_ = $obj->getline and /accept/) |
| 137 | 0 | 1 | unless $obj->print("$event\n") |