| blib/lib/LWP/UserAgent/DNS/Hosts.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 14 | 18 | 77.7 |
| line | true | false | branch |
|---|---|---|---|
| 37 | 1 | 2 | if (ref $source eq 'GLOB') { } |
| 1 | 1 | elsif (not $source =~ /[\x0D\x0A]/ and -f $source) { } | |
| 54 | 9 | 6 | if not $_ or /^#/ |
| 65 | 0 | 1 | unless open my $fh, '<', $file |
| 72 | 0 | 1 | unless open my $fh, '<', \$string |
| 91 | 1 | 1 | if (my $orig = LWP::Protocol::implementor($proto)) { } |
| 93 | 1 | 0 | if (eval "require $impl; 1") |
| 103 | 1 | 0 | if (defined wantarray) |
| 111 | 1 | 1 | if (my $impl = $Implementors{$proto}) |