| blib/lib/IO/Socket/SSL/PublicSuffix.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 6 | 13 | 46.1 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 288 | 283 | 0 | 6 | $add_dot and not ref $suffix |
| 333 | 0 | 0 | 0 | $line =~ /\S/ and not $line =~ m[\A\s*//] |
| line | l | !l | condition |
|---|---|---|---|
| 192 | 74420 | 69419 | $p->{$_} ||= {} |
| 306 | 0 | 0 | shift() || 'http://publicsuffix.org/list/effective_tld_names.dat' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 157 | 49 | 10 | 0 | $default{$min_suffix} ||= (shift())->from_string(_default_data(), "min_suffix", $min_suffix) |