File Coverage

blib/lib/POE/Component/Client/Whois/TLDList.pm
Criterion Covered Total %
statement 23 31 74.1
branch 3 6 50.0
condition 1 2 50.0
subroutine 5 6 83.3
pod 3 3 100.0
total 35 48 72.9


line stmt bran cond sub pod time code
1             package POE::Component::Client::Whois::TLDList;
2             $POE::Component::Client::Whois::TLDList::VERSION = '1.34';
3             #ABSTRACT: Determine the applicable Whois server for a given Top-level domain (TLD).
4              
5 5     5   1358 use strict;
  5         9  
  5         229  
6 5     5   31 use warnings;
  5         9  
  5         179  
7 5     5   3473 use Data::Dumper;
  5         32826  
  5         8707  
8              
9             my %data = (
10             '.cy' => [
11             'WEB',
12             'http://www.nic.cy/nslookup/online_database.php'
13             ],
14             '.su' => [
15             'whois.ripn.net'
16             ],
17             '.nz' => [
18             'whois.srs.net.nz'
19             ],
20             '.in' => [
21             'whois.registry.in'
22             ],
23             '.cv' => [
24             'NONE'
25             ],
26             '.ni' => [
27             'WEB',
28             'http://www.nic.ni/consulta.htm'
29             ],
30             '.la' => [
31             'whois.nic.la'
32             ],
33             '.co.za' => [
34             'whois.coza.net.za'
35             ],
36             '.sv' => [
37             'WEB',
38             'http://www.uca.edu.sv/dns/'
39             ],
40             '.pm' => [
41             'whois.nic.fr'
42             ],
43             '.ar' => [
44             'WEB',
45             'http://www.nic.ar/'
46             ],
47             '.ng' => [
48             'whois.register.net.ng'
49             ],
50             '.ae' => [
51             'whois.aeda.net.ae'
52             ],
53             '.jobs' => [
54             'jobswhois.verisign-grs.com'
55             ],
56             '.edu.ru' => [
57             'whois.informika.ru'
58             ],
59             '-nicat' => [
60             'whois.nic.at'
61             ],
62             '.tt' => [
63             'WEB',
64             'http://www.nic.tt/cgi-bin/search.pl'
65             ],
66             '-dk' => [
67             'whois.dk-hostmaster.dk'
68             ],
69             '.mp' => [
70             'NONE'
71             ],
72             '.info' => [
73             'whois.afilias.info'
74             ],
75             '.ws' => [
76             'whois.samoanic.ws'
77             ],
78             '.gov.uk' => [
79             'whois.ja.net'
80             ],
81             '.police.uk' => [
82             'NONE'
83             ],
84             '.ma' => [
85             'whois.iam.net.ma'
86             ],
87             '.de.com' => [
88             'whois.centralnic.net'
89             ],
90             '.pw' => [
91             'whois.nic.pw'
92             ],
93             '.no.com' => [
94             'whois.centralnic.net'
95             ],
96             '.td' => [
97             'NONE'
98             ],
99             '.au' => [
100             'whois.ausregistry.net.au'
101             ],
102             '.je' => [
103             'whois.je'
104             ],
105             '.arpa' => [
106             'whois.iana.org'
107             ],
108             '.gr' => [
109             'WEB',
110             'https://grweb.ics.forth.gr/Whois?lang=en'
111             ],
112             '.e164.arpa' => [
113             'whois.ripe.net'
114             ],
115             '.az' => [
116             'WEB',
117             'http://www.nic.az/AzCheck.htm'
118             ],
119             '.se.net' => [
120             'whois.centralnic.net'
121             ],
122             '.yt' => [
123             'whois.nic.yt'
124             ],
125             '.uk.net' => [
126             'whois.centralnic.net'
127             ],
128             '.vi' => [
129             'WEB',
130             'http://www.nic.vi/whoisform.htm'
131             ],
132             '.mz' => [
133             'NONE'
134             ],
135             '.ad' => [
136             'NONE'
137             ],
138             '-arin' => [
139             'whois.arin.net'
140             ],
141             '.wf' => [
142             'whois.nic.wf'
143             ],
144             '.ua' => [
145             'whois.net.ua'
146             ],
147             '.gov' => [
148             'whois.nic.gov'
149             ],
150             '.lk' => [
151             'whois.nic.lk'
152             ],
153             '.do' => [
154             'WEB',
155             'http://www.nic.do/whois-h.php3'
156             ],
157             '.ls' => [
158             'WEB',
159             'http://www.co.ls/data/leo2.asp'
160             ],
161             '.ye' => [
162             'NONE'
163             ],
164             '.ki' => [
165             'WEB',
166             'http://www.ki/dns/'
167             ],
168             '.tw' => [
169             'whois.twnic.net'
170             ],
171             '.nc' => [
172             'whois.cctld.nc'
173             ],
174             '.sk' => [
175             'whois.sk-nic.sk'
176             ],
177             '.bm' => [
178             'WEB',
179             'http://207.228.133.14/cgi-bin/lansaweb?procfun+BMWHO+BMWHO2+WHO'
180             ],
181             '-norid' => [
182             'whois.norid.no'
183             ],
184             '.pk' => [
185             'WEB',
186             'http://www.pknic.net.pk/'
187             ],
188             '.gg' => [
189             'whois.gg'
190             ],
191             '.cd' => [
192             'whois.nic.cd'
193             ],
194             '.lv' => [
195             'whois.nic.lv'
196             ],
197             '.kg' => [
198             'whois.domain.kg'
199             ],
200             '.fk' => [
201             'NONE'
202             ],
203             '.vc' => [
204             'whois.afilias-grs.info'
205             ],
206             '.so' => [
207             'NONE'
208             ],
209             '.an' => [
210             'NONE'
211             ],
212             '.sh' => [
213             'whois.nic.sh'
214             ],
215             '.ee' => [
216             'whois.eenet.ee'
217             ],
218             '.pg' => [
219             'NONE'
220             ],
221             '.md' => [
222             'WEB',
223             'http://www.dns.md/wh1.php'
224             ],
225             '.bs' => [
226             'WEB',
227             'http://www.nic.bs/cgi-bin/search.pl'
228             ],
229             '.iq' => [
230             'NONE'
231             ],
232             '.sl' => [
233             'whois.nic.sl'
234             ],
235             '-sixxs' => [
236             'whois.sixxs.net'
237             ],
238             '.ac.za' => [
239             'whois.ac.za'
240             ],
241             '.fo' => [
242             'whois.ripe.net'
243             ],
244             '.uk.co' => [
245             'whois.uk.co'
246             ],
247             '.us' => [
248             'whois.nic.us'
249             ],
250             '.cn' => [
251             'whois.cnnic.net.cn'
252             ],
253             '.tp' => [
254             'whois.nic.tp'
255             ],
256             '.bz' => [
257             'whois.afilias-grs.info'
258             ],
259             '.tm' => [
260             'whois.nic.tm'
261             ],
262             '.mod.uk' => [
263             'NONE'
264             ],
265             '.british-library.uk' => [
266             'NONE'
267             ],
268             '.zm' => [
269             'NONE'
270             ],
271             '.br.com' => [
272             'whois.centralnic.net'
273             ],
274             '.eu.com' => [
275             'whois.centralnic.net'
276             ],
277             '.biz' => [
278             'whois.nic.biz'
279             ],
280             '.mk' => [
281             'WEB',
282             'http://dns.marnet.net.mk/registar.php'
283             ],
284             '.za.net' => [
285             'whois.za.net'
286             ],
287             '.qc.com' => [
288             'whois.centralnic.net'
289             ],
290             '.ai' => [
291             'whois.ai'
292             ],
293             '-metu' => [
294             'whois.metu.edu.tr'
295             ],
296             '.rw' => [
297             'WEB',
298             'http://www.nic.rw/cgi-bin/whoisrw.pl'
299             ],
300             '.me' => [
301             'whois.meregistry.net'
302             ],
303             '.mo' => [
304             'WEB',
305             'http://www.monic.net.mo/'
306             ],
307             '.nu' => [
308             'whois.nic.nu'
309             ],
310             '.yu' => [
311             'NONE'
312             ],
313             '.gq' => [
314             'NONE'
315             ],
316             '.pro' => [
317             'whois.registrypro.pro'
318             ],
319             '.aq' => [
320             'NONE'
321             ],
322             '.com' => [
323             'whois.crsnic.net'
324             ],
325             '.dj' => [
326             'whois.domain.dj'
327             ],
328             '-itnic' => [
329             'whois.nic.it'
330             ],
331             '.travel' => [
332             'whois.nic.travel'
333             ],
334             '.na' => [
335             'whois.na-nic.com.na'
336             ],
337             '.vu' => [
338             'WEB',
339             'http://www.vunic.vu/whois.html'
340             ],
341             '.kn' => [
342             'NONE'
343             ],
344             '.uz' => [
345             'whois.cctld.uz'
346             ],
347             '.st' => [
348             'whois.nic.st'
349             ],
350             '-idnic' => [
351             'whois.idnic.net.id'
352             ],
353             '.sz' => [
354             'NONE'
355             ],
356             '.aero' => [
357             'whois.aero'
358             ],
359             '.coop' => [
360             'whois.nic.coop'
361             ],
362             '.jm' => [
363             'NONE'
364             ],
365             '.ps' => [
366             'WEB',
367             'http://www.nic.ps/whois/whois.html'
368             ],
369             '.ms' => [
370             'whois.nic.ms'
371             ],
372             '.nr' => [
373             'WEB',
374             'http://www.cenpac.net.nr/dns/whois.html'
375             ],
376             '.be' => [
377             'whois.dns.be'
378             ],
379             '.pa' => [
380             'WEB',
381             'http://www.nic.pa/'
382             ],
383             '.mv' => [
384             'NONE'
385             ],
386             '.fj' => [
387             'whois.usp.ac.fj'
388             ],
389             '.th' => [
390             'whois.thnic.net'
391             ],
392             '-hst' => [
393             'whois.networksolutions.com'
394             ],
395             '.gov.za' => [
396             'whois.gov.za'
397             ],
398             '.hr' => [
399             'WEB',
400             'http://www.dns.hr/pretrazivanje.html'
401             ],
402             '.name' => [
403             'whois.nic.name'
404             ],
405             '.za.org' => [
406             'whois.za.org'
407             ],
408             '.cz' => [
409             'whois.nic.cz'
410             ],
411             '.parliament.uk' => [
412             'NONE'
413             ],
414             '.gi' => [
415             'whois.afilias-grs.info'
416             ],
417             '-tel' => [
418             'whois.nic.tel'
419             ],
420             '.tg' => [
421             'WEB',
422             'http://www.nic.tg/'
423             ],
424             '.lu' => [
425             'whois.dns.lu'
426             ],
427             '.bh' => [
428             'NONE'
429             ],
430             '.cc' => [
431             'whois.nic.cc'
432             ],
433             '.gd' => [
434             'whois.adamsnames.tc'
435             ],
436             '-ripn' => [
437             'whois.ripn.net'
438             ],
439             '.in-addr.arpa' => [
440             'ARPA'
441             ],
442             '.tv' => [
443             'whois.nic.tv'
444             ],
445             '.ao' => [
446             'NONE'
447             ],
448             '.mu' => [
449             'whois.nic.mu'
450             ],
451             '.za.com' => [
452             'whois.centralnic.net'
453             ],
454             '.aw' => [
455             'NONE'
456             ],
457             '.bd' => [
458             'www.whois.com.bd'
459             ],
460             '.mn' => [
461             'whois.afilias-grs.info'
462             ],
463             '.hn' => [
464             'whois.afilias-grs.info'
465             ],
466             '.pr' => [
467             'whois.nic.pr'
468             ],
469             '-cn' => [
470             'whois.cnnic.net.cn'
471             ],
472             '.by' => [
473             'WEB',
474             'http://www.tld.by/indexeng.html'
475             ],
476             '-sgnic' => [
477             'whois.nic.net.sg'
478             ],
479             '.it' => [
480             'whois.nic.it'
481             ],
482             '.ch' => [
483             'whois.nic.ch'
484             ],
485             '.cm' => [
486             'NONE'
487             ],
488             '.al' => [
489             'NONE'
490             ],
491             '.mr' => [
492             'NONE'
493             ],
494             '.ci' => [
495             'www.nic.ci'
496             ],
497             '.gl' => [
498             'NONE'
499             ],
500             '.pf' => [
501             'NONE'
502             ],
503             '.lr' => [
504             'NONE'
505             ],
506             '.bt' => [
507             'WEB',
508             'http://www.nic.bt/'
509             ],
510             '-mnt' => [
511             'whois.ripe.net'
512             ],
513             '.tn' => [
514             'WEB',
515             'http://whois.ati.tn/'
516             ],
517             '.im' => [
518             'whois.nic.im'
519             ],
520             '.tel' => [
521             'whois.nic.tel'
522             ],
523             '.cl' => [
524             'whois.nic.cl'
525             ],
526             '.ly' => [
527             'whois.nic.ly'
528             ],
529             '.om' => [
530             'WEB',
531             'http://www.omnic.om/onlineUser/WHOISLookup.jsp'
532             ],
533             '.gu' => [
534             'WEB',
535             'http://gadao.gov.gu/domainsearch.htm'
536             ],
537             '.fed.us' => [
538             'whois.nic.gov'
539             ],
540             '.sy' => [
541             'NONE'
542             ],
543             '.sj' => [
544             'NONE'
545             ],
546             '-frnic' => [
547             'whois.nic.fr'
548             ],
549             '.edu' => [
550             'whois.educause.net'
551             ],
552             '-org' => [
553             'whois.networksolutions.com'
554             ],
555             '.cx' => [
556             'whois.nic.cx'
557             ],
558             '.gp' => [
559             'whois.nic.gp'
560             ],
561             '.kh' => [
562             'NONE'
563             ],
564             '.mil' => [
565             'NONE'
566             ],
567             '.dz' => [
568             'WEB',
569             'https://www.nic.dz/'
570             ],
571             '.ru' => [
572             'whois.ripn.net'
573             ],
574             '.ug' => [
575             'www.registry.co.ug'
576             ],
577             '.kz' => [
578             'whois.nic.kz'
579             ],
580             '.mg' => [
581             'whois.nic.mg'
582             ],
583             '.int' => [
584             'whois.iana.org'
585             ],
586             '.ba' => [
587             'WEB',
588             'http://www.nic.ba/stream/whois/'
589             ],
590             '.jpn.com' => [
591             'whois.centralnic.net'
592             ],
593             '.vg' => [
594             'whois.adamsnames.tc'
595             ],
596             '.km' => [
597             'NONE'
598             ],
599             '.sr' => [
600             'whois.register.sr'
601             ],
602             '.ga' => [
603             'NONE'
604             ],
605             '-dom' => [
606             'whois.networksolutions.com'
607             ],
608             '.tc' => [
609             'whois.adamsnames.tc'
610             ],
611             '.tz' => [
612             'WEB',
613             'http://whois.tznic.or.tz/'
614             ],
615             '.at' => [
616             'whois.nic.at'
617             ],
618             '.co.pl' => [
619             'whois.co.pl'
620             ],
621             '.bg' => [
622             'whois.register.bg'
623             ],
624             '.lb' => [
625             'WEB',
626             'http://www.aub.edu.lb/lbdr/search.html'
627             ],
628             '.mc' => [
629             'whois.ripe.net'
630             ],
631             '.tr' => [
632             'whois.metu.edu.tr'
633             ],
634             '.co' => [
635             'WEB',
636             'https://www.nic.co/'
637             ],
638             '.mx' => [
639             'whois.nic.mx'
640             ],
641             '.es' => [
642             'WEB',
643             'https://www.nic.es/'
644             ],
645             '.ve' => [
646             'whois.nic.ve'
647             ],
648             '.fi' => [
649             'whois.ficora.fi'
650             ],
651             '.org' => [
652             'whois.publicinterestregistry.net'
653             ],
654             '.asia' => [
655             'whois.nic.asia'
656             ],
657             '.sn' => [
658             'whois.nic.sn'
659             ],
660             '.sc' => [
661             'whois.afilias-grs.info'
662             ],
663             '.uk.com' => [
664             'whois.centralnic.net'
665             ],
666             '.bw' => [
667             'NONE'
668             ],
669             '.bo' => [
670             'WEB',
671             'http://www.nic.bo/'
672             ],
673             '.ec' => [
674             'WEB',
675             'http://www.nic.ec/whois/eng/whois.asp'
676             ],
677             '.qa' => [
678             'NONE'
679             ],
680             '.dk' => [
681             'whois.dk-hostmaster.dk'
682             ],
683             '.cn.com' => [
684             'whois.centralnic.net'
685             ],
686             '.tk' => [
687             'whois.dot.tk'
688             ],
689             '.kw' => [
690             'WEB',
691             'http://www.kw/'
692             ],
693             '.jet.uk' => [
694             'NONE'
695             ],
696             '.va' => [
697             'whois.ripe.net'
698             ],
699             '.kr' => [
700             'whois.nic.or.kr'
701             ],
702             '-ar' => [
703             'whois.aunic.net'
704             ],
705             '.nhs.uk' => [
706             'NONE'
707             ],
708             '.cat' => [
709             'whois.cat'
710             ],
711             '.vn' => [
712             'WEB',
713             'http://www.vnnic.vn/english/'
714             ],
715             '.net' => [
716             'whois.crsnic.net'
717             ],
718             '.pn' => [
719             'WEB',
720             'http://www.pitcairn.pn/PnRegistry/'
721             ],
722             '-uynic' => [
723             'www.rau.edu.uy'
724             ],
725             '.cg' => [
726             'WEB',
727             'http://www.nic.cg/cgi-bin/whois.pl'
728             ],
729             '.zw' => [
730             'NONE'
731             ],
732             '.hk' => [
733             'whois.hkdnr.net.hk'
734             ],
735             '.mm' => [
736             'whois.nic.mm'
737             ],
738             '.ro' => [
739             'whois.rotld.ro'
740             ],
741             '.gm' => [
742             'whois.ripe.net'
743             ],
744             '.ht' => [
745             'whois.nic.ht'
746             ],
747             '.sd' => [
748             'NONE'
749             ],
750             '.sg' => [
751             'whois.nic.net.sg'
752             ],
753             '-lrms' => [
754             'whois.afilias.info'
755             ],
756             '.ne' => [
757             'NONE'
758             ],
759             '.ck' => [
760             'whois.nic.ck'
761             ],
762             '.ac' => [
763             'whois.nic.ac'
764             ],
765             '.fm' => [
766             'WEB',
767             'http://www.dot.fm/whois.html'
768             ],
769             '.gb.com' => [
770             'whois.centralnic.net'
771             ],
772             '.py' => [
773             'WEB',
774             'http://www.nic.py/consultas.html'
775             ],
776             '.bj' => [
777             'whois.nic.bj'
778             ],
779             '.er' => [
780             'NONE'
781             ],
782             '.tf' => [
783             'whois.nic.tf'
784             ],
785             '.eu' => [
786             'whois.eu'
787             ],
788             '.ke' => [
789             'whois.kenic.or.ke'
790             ],
791             '.kp' => [
792             'whois.kcce.kp'
793             ],
794             '.ca' => [
795             'whois.cira.ca'
796             ],
797             '.mq' => [
798             'whois.nic.mq'
799             ],
800             '.za' => [
801             'NONE'
802             ],
803             '.ge' => [
804             'WEB',
805             'http://whois.sanet.ge/'
806             ],
807             '.jp' => [
808             'whois.jprs.jp'
809             ],
810             '.gy' => [
811             'whois.registry.gy'
812             ],
813             '.id' => [
814             'whois.idnic.net.id'
815             ],
816             '.bl.uk' => [
817             'NONE'
818             ],
819             '.bb' => [
820             'WEB',
821             'http://www.barbadosdomains.net/search_domain.php'
822             ],
823             '-tw' => [
824             'whois.twnic.net'
825             ],
826             '.hu.com' => [
827             'whois.centralnic.net'
828             ],
829             '.tj' => [
830             'whois.nic.tj'
831             ],
832             '.ml' => [
833             'NONE'
834             ],
835             '.cu' => [
836             'WEB',
837             'http://www.nic.cu/consult.html'
838             ],
839             '-il' => [
840             'whois.isoc.org.il'
841             ],
842             '.mobi' => [
843             'whois.dotmobiregistry.net'
844             ],
845             '.gt' => [
846             'WEB',
847             'http://www.gt/whois.htm'
848             ],
849             '.gb' => [
850             'NONE'
851             ],
852             '.fr' => [
853             'whois.nic.fr'
854             ],
855             '.rs' => [
856             'WEB',
857             'http://www.nic.rs/en/whois'
858             ],
859             '.gb.net' => [
860             'whois.centralnic.net'
861             ],
862             '.ky' => [
863             'WEB',
864             'http://kynseweb.messagesecure.com/kywebadmin/'
865             ],
866             '.bv' => [
867             'NONE'
868             ],
869             '.mw' => [
870             'WEB',
871             'http://www.registrar.mw/'
872             ],
873             '.af' => [
874             'whois.nic.af'
875             ],
876             '.no' => [
877             'whois.norid.no'
878             ],
879             '.to' => [
880             'whois.tonic.to'
881             ],
882             '-is' => [
883             'whois.isnet.is'
884             ],
885             '.as' => [
886             'whois.nic.as'
887             ],
888             '.se.com' => [
889             'whois.centralnic.net'
890             ],
891             '-6bone' => [
892             'whois.6bone.net'
893             ],
894             '-afrinic' => [
895             'whois.afrinic.net'
896             ],
897             '-ap' => [
898             'whois.apnic.net'
899             ],
900             '.sa' => [
901             'saudinic.net.sa'
902             ],
903             '-uanic' => [
904             'whois.com.ua'
905             ],
906             '-nicir' => [
907             'whois.nic.ir'
908             ],
909             '.io' => [
910             'whois.nic.io'
911             ],
912             '-cknic' => [
913             'whois.nic.ck'
914             ],
915             '.eu.org' => [
916             'whois.eu.org'
917             ],
918             '.icnet.uk' => [
919             'NONE'
920             ],
921             '.bn' => [
922             'NONE'
923             ],
924             '.et' => [
925             'NONE'
926             ],
927             '.lc' => [
928             'whois.afilias-grs.info'
929             ],
930             '.ax' => [
931             'NONE'
932             ],
933             '.museum' => [
934             'whois.museum'
935             ],
936             '.hu' => [
937             'whois.nic.hu'
938             ],
939             '.nls.uk' => [
940             'NONE'
941             ],
942             '.eg' => [
943             'NONE'
944             ],
945             '.cf' => [
946             'NONE'
947             ],
948             '.is' => [
949             'whois.isnet.is'
950             ],
951             '.de' => [
952             'de.whois-servers.net'
953             ],
954             '.mh' => [
955             'NONE'
956             ],
957             '-lacnic' => [
958             'whois.lacnic.net'
959             ],
960             '.com.uy' => [
961             'WEB',
962             'https://nic.anteldata.com.uy/dns/'
963             ],
964             '.li' => [
965             'whois.nic.li'
966             ],
967             '.gn' => [
968             'NONE'
969             ],
970             '.nf' => [
971             'whois.nic.nf'
972             ],
973             '-kenic' => [
974             'whois.kenic.or.ke'
975             ],
976             '.si' => [
977             'whois.arnes.si'
978             ],
979             '.uy.com' => [
980             'whois.centralnic.net'
981             ],
982             '.dm' => [
983             'whois.nic.dm'
984             ],
985             '.br' => [
986             'whois.nic.br'
987             ],
988             '.il' => [
989             'whois.isoc.org.il'
990             ],
991             '.cr' => [
992             'WEB',
993             'http://www.nic.cr/niccr_publico/showRegistroDominiosScreen.do'
994             ],
995             '-kg' => [
996             'whois.domain.kg'
997             ],
998             '-ti' => [
999             'whois.telstra.net'
1000             ],
1001             '.my' => [
1002             'whois.mynic.net.my'
1003             ],
1004             '.nl' => [
1005             'whois.domain-registry.nl'
1006             ],
1007             '.gh' => [
1008             'WEB',
1009             'http://www.nic.gh/customer/search_c.htm'
1010             ],
1011             '-rotld' => [
1012             'whois.rotld.ro'
1013             ],
1014             '.sa.com' => [
1015             'whois.centralnic.net'
1016             ],
1017             '.sb' => [
1018             'whois.nic.net.sb'
1019             ],
1020             '.pl' => [
1021             'whois.dns.pl'
1022             ],
1023             '.us.com' => [
1024             'whois.centralnic.net'
1025             ],
1026             '-ripe' => [
1027             'whois.ripe.net'
1028             ],
1029             '.web.com' => [
1030             'whois.centralnic.net'
1031             ],
1032             '.am' => [
1033             'whois.nic.am'
1034             ],
1035             '.bi' => [
1036             'WEB',
1037             'http://www.nic.bi/Nic_search.asp'
1038             ],
1039             '.bf' => [
1040             'NONE'
1041             ],
1042             '.ag' => [
1043             'whois.nic.ag'
1044             ],
1045             '.ru.com' => [
1046             'whois.centralnic.net'
1047             ],
1048             '.org.za' => [
1049             'WEB',
1050             'http://www.org.za/'
1051             ],
1052             '.mt' => [
1053             'WEB',
1054             'https://www.nic.org.mt/dotmt/'
1055             ],
1056             '.gs' => [
1057             'whois.nic.gs'
1058             ],
1059             '.uy' => [
1060             'whois.nic.org.uy'
1061             ],
1062             '.hm' => [
1063             'whois.registry.hm'
1064             ],
1065             '.ph' => [
1066             'WEB',
1067             'http://www.dot.ph/'
1068             ],
1069             '.edu.cn' => [
1070             'whois.edu.cn'
1071             ],
1072             '.ie' => [
1073             'whois.domainregistry.ie'
1074             ],
1075             '-coop' => [
1076             'whois.nic.coop'
1077             ],
1078             '.ac.uk' => [
1079             'whois.ja.net'
1080             ],
1081             '.co.ca' => [
1082             'whois.co.ca'
1083             ],
1084             '.np' => [
1085             'WEB',
1086             'http://www.mos.com.np/domsearch.html'
1087             ],
1088             '.se' => [
1089             'whois.nic-se.se'
1090             ],
1091             '.lt' => [
1092             'whois.domreg.lt'
1093             ],
1094             '.re' => [
1095             'whois.nic.fr'
1096             ],
1097             '.uk' => [
1098             'whois.nic.uk'
1099             ],
1100             '.jo' => [
1101             'WEB',
1102             'http://www.dns.jo/Whois.aspx'
1103             ],
1104             '.tl' => [
1105             'whois.nic.tl'
1106             ],
1107             '-gandi' => [
1108             'whois.gandi.net'
1109             ],
1110             '.pt' => [
1111             'whois.dns.pt'
1112             ],
1113             '-cz' => [
1114             'whois.nic.cz'
1115             ],
1116             '.gf' => [
1117             'whois.nplus.gf'
1118             ],
1119             '.gw' => [
1120             'NONE'
1121             ],
1122             '.ir' => [
1123             'whois.nic.ir'
1124             ],
1125             '.pe' => [
1126             'whois.nic.pe'
1127             ],
1128             '.sm' => [
1129             'whois.ripe.net'
1130             ],
1131             );
1132              
1133             sub new {
1134 7     7 1 1085 my $self = bless { data => \%data }, shift;
1135 7         58 return $self;
1136             }
1137              
1138             sub dump_tlds {
1139 0     0 1 0 my $self = shift;
1140 0         0 print STDERR Dumper( $self->{data} );
1141 0         0 return 1;
1142             }
1143              
1144             sub tld {
1145 12     12 1 3815 my $self = shift;
1146 12   50     42 my $lookup = shift || return;
1147 12         39 $lookup =~ s/\.$//;
1148              
1149 12 50       62 unless ( $lookup =~ /\./ ) {
1150 0         0 foreach my $tld ( sort keys %{ $self->{data} } ) {
  0         0  
1151 0 0       0 return @{ $self->{data}->{ $tld } }
  0         0  
1152             if $lookup =~ /\Q$tld\E$/;
1153             }
1154             }
1155             else {
1156 12         23 my $query = $lookup;
1157 12         29 while ( $query ) {
1158 28 100       119 if ( exists $self->{data}->{".$query"} ) {
1159 12         13 return @{ $self->{data}->{".$query"} };
  12         78  
1160             }
1161 16         66 my @vals = split /\./, $query;
1162 16         28 shift @vals;
1163 16         76 $query = join '.', @vals;
1164             }
1165             }
1166 0           return 'NONE';
1167             }
1168              
1169             1;
1170              
1171             __END__