File Coverage

blib/lib/Net/DRI/DRD/IITCNR.pm
Criterion Covered Total %
statement 15 28 53.5
branch 0 2 0.0
condition n/a
subroutine 5 12 41.6
pod 4 7 57.1
total 24 49 48.9


line stmt bran cond sub pod time code
1             ## Domain Registry Interface, IIT CNR (.IT) policies
2             ##
3             ## Copyright (c) 2009-2011,2016 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::IITCNR;
16              
17 1     1   656 use strict;
  1         2  
  1         22  
18 1     1   3 use warnings;
  1         1  
  1         20  
19              
20 1     1   3 use base qw/Net::DRI::DRD/;
  1         0  
  1         53  
21              
22 1     1   3 use Net::DRI::Exception;
  1         1  
  1         13  
23 1     1   3 use DateTime::Duration;
  1         0  
  1         196  
24              
25             __PACKAGE__->make_exception_for_unavailable_operations(qw/host_check host_info host_update host_delete host_create contact_transfer contact_transfer_start contact_transfer_stop contact_transfer_query contact_transfer_accept contact_transfer_refuse domain_renew/);
26              
27             =pod
28              
29             =head1 NAME
30              
31             Net::DRI::DRD::IITCNR - IIT CNR (.IT) policies for Net::DRI
32              
33             =head1 DESCRIPTION
34              
35             Please see the README file for details.
36              
37             =head1 SUPPORT
38              
39             For now, support questions should be sent to:
40              
41             Enetdri@dotandco.comE
42              
43             Please also see the SUPPORT file in the distribution.
44              
45             =head1 SEE ALSO
46              
47             Ehttp://www.dotandco.com/services/software/Net-DRI/E
48              
49             =head1 AUTHOR
50              
51             Patrick Mevzek, Enetdri@dotandco.comE
52              
53             =head1 COPYRIGHT
54              
55             Copyright (c) 2009-2011,2016 Patrick Mevzek .
56             All rights reserved.
57              
58             This program is free software; you can redistribute it and/or modify
59             it under the terms of the GNU General Public License as published by
60             the Free Software Foundation; either version 2 of the License, or
61             (at your option) any later version.
62              
63             See the LICENSE file that comes with this distribution for more details.
64              
65             =cut
66              
67             ####################################################################################################
68              
69             sub new
70             {
71 0     0 0   my $class=shift;
72 0           my $self=$class->SUPER::new(@_);
73 0           $self->{info}->{host_as_attr}=1;
74 0           return $self;
75             }
76              
77 0     0 1   sub periods { return map { DateTime::Duration->new(years => $_) } (1..10); }
  0            
78 0     0 1   sub name { return 'IITCNR'; }
79 0     0 1   sub tlds { return ('it'); }
80 0     0 1   sub object_types { return ('domain','contact','ns'); }
81 0     0 0   sub profile_types { return qw/epp/; }
82              
83             sub transport_protocol_default
84             {
85 0     0 0   my ($self,$type)=@_;
86              
87 0 0         return ('Net::DRI::Transport::HTTP',{protocol_connection=>'Net::DRI::Protocol::EPP::Extensions::HTTP'},'Net::DRI::Protocol::EPP::Extensions::IT',{}) if $type eq 'epp'; ## EPP is over HTTPS here
88 0           return;
89             }
90              
91             ####################################################################################################
92             1;