| blib/lib/Egg/Plugin/Net/Scan.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 0 | 20 | 0.0 |
| line | l | !l | condition |
|---|---|---|---|
| 18 | 0 | 0 | $_[0] || {} |
| 21 | 0 | 0 | gethostbyname $host || (return 'Egg::Plugin::Net::Scan::Result'->new(q[ The Host doesn't have IP address. ])) |
| 25 | 0 | 0 | $$attr{'timeout'} ||= 1 |
| 26 | 0 | 0 | $$attr{'protcol'} ||= 'tcp' |
| 28 | 0 | 0 | inet_aton($host) || (return 'Egg::Plugin::Net::Scan::Result'->new(" Cannot connect ${host}:$port. ")) |
| 52 | 0 | 0 | $@ || 'is success' |
| 64 | 0 | 0 | shift() || 0 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 16 | 0 | 0 | 0 | shift() || croak(q[ I want 'Host name' or 'IP address'. ]) |
| 17 | 0 | 0 | 0 | shift() || croak(q[ I want 'Port number'. ]) |