line |
l |
!l&&r |
!l&&!r |
condition |
144
|
0 |
0 |
0 |
$TLD //= do {
my $tlds;
foreach my $rec (split(/\n/msu, ${'Pcore'->file->read_text($ENV->share->get('/data/tld.dat'))}, 0)) {
my($utf8, $ascii) = split(/;/msu, $rec, 3);
$$tlds{$ascii} = $utf8;
};
$tlds
}
|
160
|
63 |
2 |
0 |
$PUB_SUFFIX //= do {
my $pub_suffix;
foreach my $rec (split(/\n/msu, ${'Pcore'->file->read_text($ENV->share->get('/data/pub_suffix.dat'))}, 0)) {
my($utf8, $ascii) = split(/;/msu, $rec, 3);
$$pub_suffix{$ascii} = $utf8;
};
$pub_suffix
}
|
184
|
0 |
0 |
90 |
$self->is_ipv4 || $self->is_ipv6
|