| blib/lib/Net/Finger.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 0 | 24 | 0.0 |
| line | true | false | branch |
|---|---|---|---|
| 35 | 0 | 0 | unless (@_) |
| 43 | 0 | 0 | if (index($addr, '@') >= 0) { } |
| 53 | 0 | 0 | if ($verbose) |
| 57 | 0 | 0 | if ($Net::Finger::debug) |
| 61 | 0 | 0 | unless (socket SOCK, 2, 1, getprotobyname 'tcp') |
| 67 | 0 | 0 | $host =~ s/:([0-9]*)$// && $1 ? : |
| 70 | 0 | 0 | if ($Net::Finger::debug) |
| 74 | 0 | 0 | unless (connect SOCK, sockaddr_in($port, inet_aton($host))) |
| 80 | 0 | 0 | if ($Net::Finger::debug) |
| 86 | 0 | 0 | if ($Net::Finger::debug) |
| 95 | 0 | 0 | if ($Net::Finger::debug) |
| 100 | 0 | 0 | wantarray ? : |