File Coverage

blib/lib/Net/DRI/DRD/GL.pm
Criterion Covered Total %
statement 15 24 62.5
branch 0 2 0.0
condition n/a
subroutine 5 11 45.4
pod 4 6 66.6
total 24 43 55.8


line stmt bran cond sub pod time code
1             ## Domain Registry Interface, GL Registry Driver
2             ##
3             ## Copyright (c) 2010,2011 Patrick Mevzek . All rights reserved.
4             ##
5             ## This file is part of Net::DRI
6             ##
7             ## Net::DRI is free software; you can redistribute it and/or modify
8             ## it under the terms of the GNU General Public License as published by
9             ## the Free Software Foundation; either version 2 of the License, or
10             ## (at your option) any later version.
11             ##
12             ## See the LICENSE file that comes with this distribution for more details.
13             #########################################################################################
14              
15             package Net::DRI::DRD::GL;
16              
17 1     1   1042 use strict;
  1         1  
  1         26  
18 1     1   3 use warnings;
  1         2  
  1         22  
19              
20 1     1   3 use base qw/Net::DRI::DRD/;
  1         1  
  1         64  
21              
22 1     1   5 use DateTime::Duration;
  1         1  
  1         15  
23 1     1   17 use DateTime;
  1         1  
  1         163  
24              
25             =pod
26              
27             =head1 NAME
28              
29             Net::DRI::DRD::GL - GL Registry driver for Net::DRI
30              
31             =head1 DESCRIPTION
32              
33             Please see the README file for details.
34              
35             As .GL is not yet in production, modifications may be needed.
36              
37             Only little testing has been done, but basic contact and domain functions are working.
38              
39             However, .GL is currently implementing a vanilla CoCCA system.
40              
41             =head1 SUPPORT
42              
43             For now, support questions should be sent to:
44              
45             Enetdri@dotandco.comE
46              
47             Please also see the SUPPORT file in the distribution.
48              
49             =head1 SEE ALSO
50              
51             Ehttp://www.dotandco.com/services/software/Net-DRI/E
52              
53             =head1 AUTHOR
54              
55             Patrick Mevzek, Enetdri@dotandco.comE
56              
57             =head1 COPYRIGHT
58              
59             Copyright (c) 2010,2011 Patrick Mevzek .
60             All rights reserved.
61              
62             This program is free software; you can redistribute it and/or modify
63             it under the terms of the GNU General Public License as published by
64             the Free Software Foundation; either version 2 of the License, or
65             (at your option) any later version.
66              
67             See the LICENSE file that comes with this distribution for more details.
68              
69             =cut
70              
71             ####################################################################################################
72              
73 0     0 1   sub periods { return map { DateTime::Duration->new(years => $_) } (1..5); }
  0            
74 0     0 1   sub name { return 'GL'; }
75 0     0 1   sub tlds { return (qw/gl co.gl com.gl net.gl edu.gl org.gl/); }
76 0     0 1   sub object_types { return ('domain','ns','contact'); }
77 0     0 0   sub profile_types { return qw/epp/; }
78              
79             sub transport_protocol_default
80             {
81 0     0 0   my ($self,$type)=@_;
82              
83 0 0         return ('Net::DRI::Transport::Socket',{remote_host => 'registry.nic.gl'},'Net::DRI::Protocol::EPP::Extensions::GL',{}) if $type eq 'epp';
84 0           return;
85             }
86              
87             ####################################################################################################
88              
89             ####################################################################################################
90             1;