view release on metacpan or  search on metacpan

lib/ParseUtil/Domain/ConfigData.pm  view on Meta::CPAN

package ParseUtil::Domain::ConfigData;
$ParseUtil::Domain::ConfigData::VERSION = '2.427';
use Modern::Perl;


=head2 tld_regex

Return the compiled regex.

=cut
sub tld_regex {
    return qr{
    (?^u:(?:j(?:p(?:\.(?:h(?:okkaido(?:\.(?:k(?:a(?:m(?:i(?:s(?:unagawa|hihoro)|furano|kawa)|oenai)|yabe)|i(?:ta(?:hiroshima|mi)|mobetsu|yosato|konai)|u(?:r(?:omatsunai|iyama)|nneppu|shiro|tchan)|oshimizu|embuchi|yowa)|s(?:h(?:i(?:r(?:a(?:nuka|oi)|iu...
    }x;
}


1;