package Acme::MetaSyntactic::tld;
use strict;
use Acme::MetaSyntactic::MultiList;
our @ISA = qw( Acme::MetaSyntactic::MultiList );
our $VERSION = '1.004';
__PACKAGE__->init();

our %Remote = (
    source  => 'http://www.iana.org/domains/root/db/',
    extract => sub {
        ( my $type = $_[1]) =~ y/_/-/;
        local $/;
        my %type = $_[0] =~ m{<td><span class="domain tld"><a href="/domains/root/db/(\w+).html">.\w+</a></span></td>\s+<td>([^<]+)</td>\s+<!-- <td>(?:[^<\n]*)}g;
        return grep $type{$_} eq $type, keys %type;
    },
);

1;

=head1 NAME

Acme::MetaSyntactic::tld - The Top-Level Domain theme

=head1 DESCRIPTION

The list of top-level domainnames.

The source for the list is
L<http://www.iana.org/domains/root/db/>.

Note that this list contains only the ASCII top-level domains, and not the
internationalized ones.

=head1 CONTRIBUTORS

Scott Lanning, Philippe Bruhat (BooK).

=head1 CHANGES

=over 4

=item *

2014-09-15 - v1.004

Updated from the source web site in Acme-MetaSyntactic-Themes version 1.042.

=item *

2014-08-18 - v1.003

Addition of 338 (!) generic top-level domain names
in Acme-MetaSyntactic-Themes version 1.041.

=item *

2012-08-27 - v1.002

Addition of the C<.post> top-level domain
in Acme-MetaSyntactic-Themes version 1.016.

=item *

2012-07-31 - v1.001

Updated the source URL, and updated the data from the source web site
in Acme-MetaSyntactic-Themes version 1.012 (published one day late).

=item *

2012-05-07 - v1.000

Made updatable, and
received its own version number in Acme-MetaSyntactic-Themes version 1.000.

=item *

2005-01-24

Introduced in Acme-MetaSyntactic version 0.06.

=item *

Idea by Scott Lanning (who suggested ISO 3166 country codes).

=back

=head1 SEE ALSO

L<Acme::MetaSyntactic>, L<Acme::MetaSyntactic::List>.

=cut

__DATA__
# names country_code
ac ad ae af ag ai al am an ao aq ar as at au aw ax az ba bb bd be bf bg
bh bi bj bl bm bn bo bq br bs bt bv bw by bz ca cc cd cf cg ch ci ck cl
cm cn co cr cu cv cw cx cy cz de dj dk dm do dz ec ee eg eh er es et eu
fi fj fk fm fo fr ga gb gd ge gf gg gh gi gl gm gn gp gq gr gs gt gu gw
gy hk hm hn hr ht hu id ie il im in io iq ir is it je jm jo jp ke kg kh
ki km kn kp kr kw ky kz la lb lc li lk lr ls lt lu lv ly ma mc md me mf
mg mh mk ml mm mn mo mp mq mr ms mt mu mv mw mx my mz na nc ne nf ng ni
nl no np nr nu nz om pa pe pf pg ph pk pl pm pn pr ps pt pw py qa re ro
rs ru rw sa sb sc sd se sg sh si sj sk sl sm sn so sr ss st su sv sx sy
sz tc td tf tg th tj tk tl tm tn to tp tr tt tv tw tz ua ug uk um us uy
uz va vc ve vg vi vn vu wf ws ye yt za zm zw
# names generic
com info net org
academy accountants active actor agency airforce archi army associates
attorney auction audio autos axa
bar bargains bayern beer berlin best bid bike bio black blackfriday blue
bmw bnpparibas boo boutique brussels build builders business buzz bzh
cab camera camp cancerresearch capetown capital caravan cards care career
careers cash catering center ceo cern cheap christmas church citic city
claims cleaning click clinic clothing club codes coffee college cologne
community company computer condos construction consulting contractors
cooking cool country credit creditcard cruises cuisinella cymru
dad dance dating day deals degree democrat dental dentist desi diamonds
diet digital direct directory discount dnp domains durban
eat education email engineer engineering enterprises equipment esq estate
eus events exchange expert exposed
fail farm feedback finance financial fish fishing fitness flights florist
foo foundation frl frogans fund furniture futbol
gal gallery gbiz gent gift gifts gives glass global globo gmail gmo gmx
gop graphics gratis green gripe guide guitars guru
hamburg haus healthcare help here hiphop hiv holdings holiday homes
horse host hosting house how
immo immobilien industries ing ink institute insure international investments
jetzt joburg juegos
kaufen kim kitchen kiwi koeln krd kred
lacaixa land lawyer lease lgbt life lighting limited limo link loans
london lotto ltda luxe luxury
maison management mango market marketing media meet melbourne meme menu
miami mini moda moe monash mortgage moscow motorcycles mov
nagoya navy network neustar new ngo nhk ninja nra nrw nyc
okinawa ong onl ooo organic otsuka ovh
paris partners parts pharmacy photo photography photos physio pics
pictures pink pizza place plumbing praxi press prod productions properties
property pub
qpon quebec
realtor recipes red rehab reise reisen ren rentals repair report
republican rest restaurant reviews rich rio rocks rodeo rsvp ruhr ryukyu
saarland sarl sca scb schmidt schule scot services sexy shiksha shoes
singles social software sohu solar solutions soy space spiegel supplies
supply support surf surgery suzuki systems
tatar tattoo tax technology tienda tips tirol today tokyo tools top town
toys trade training
university uno uol
vacations vegas ventures versicherung vet viajes villas vision vlaanderen
vodka vote voting voto voyage
wales wang watch webcam website wed whoswho wien wiki williamhill wme
works wtc wtf
xyz
yachts yandex yokohama youtube
zone
# names generic_restricted
biz name pro
# names infrastructure
arpa
# names sponsored
aero asia cat coop edu gov int jobs mil mobi museum post tel travel xxx