Net::Domain::TLD (3)
Leading comments
Automatically generated by Pod::Man 4.07 (Pod::Simple 3.32) Standard preamble: ========================================================================
NAME
Net::Domain::TLD - Work with TLD names
SYNOPSIS
use Net::Domain::TLD qw(tlds tld_exists); my @ccTLDs = tlds('cc'); print "TLD ok\n" if tld_exists('ac','cc');
DESCRIPTION
The purpose of this module is to provide user with current list of available top level domain names including new ICANN additions and ccTLDs Currently TLD definitions have been acquired from the following sources: www.icann.org/tlds www.dnso.org/constituency/gtld/gtld.html www.iana.org/cctld/cctld-whois.htm www.iana.org/domains/root/db
PUBLIC METHODS
Each public function/method is described here. These are how you should interact with this module.
"tlds"
This routine returns the tlds requested. my @all_tlds = tlds; #array of tlds my $all_tlds = tlds; #hashref of tlds and their descriptions my @cc_tlds = tlds('cc'); #array of just 'cc' type tlds my $cc_tlds = tlds('cc'); #hashref of just 'cc' type tlds and their descriptions Valid types are: cc - country code domains ccidn - internationalized country code top-level domain gtld_open - generic domains that anyone can register gtld_restricted - generic restricted registration domains gtld_new - new gTLDs new_open - recently added generic domains new_restricted - new restricted registration domains reserved - RFC2606 restricted names, not returned by tlds
"tld_exists"
This routine returns true if the given domain exists and false otherwise. die "no such domain" unless tld_exists($tld); #call without tld type die "no such domain" unless tld_exists($tld, 'new_open'); #call with tld type
COPYRIGHT
Copyright (c) 2003-2014 Alex Pavlovic, all rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
AUTHORS
Alexander Pavlovic <alex.pavlovic@devradius.com> Ricardo SIGNES <rjbs@cpan.org>