File Coverage

blib/lib/Net/DRI/Protocol/EPP/Extensions/SIDN.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 12 12 100.0


line stmt bran cond sub pod time code
1             ## Domain Registry Interface, SIDN (.NL) EPP extensions
2             ##
3             ## Copyright (c) 2009-2012,2014 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::Protocol::EPP::Extensions::SIDN;
16              
17 2     2   1875 use strict;
  2         4  
  2         49  
18 2     2   7 use warnings;
  2         2  
  2         48  
19              
20 2     2   7 use base qw/Net::DRI::Protocol::EPP/;
  2         3  
  2         463  
21              
22             use Net::DRI::Util;
23             use Net::DRI::Data::Contact::SIDN;
24              
25             ####################################################################################################
26              
27             sub setup
28             {
29             my ($self,$rp)=@_;
30             $self->ns({sidn=>['http://rxsd.domain-registry.nl/sidn-ext-epp-1.0','sidn-ext-epp-1.0.xsd']});
31             $self->capabilities('domain_update','status',undef); ## No changes in status possible
32             $self->capabilities('contact_update','status',undef);
33             $self->capabilities('contact_update','disclose',undef);
34             $self->capabilities('host_update','status',undef);
35             $self->capabilities('host_update','name',undef);
36             $self->factories('contact',sub { return Net::DRI::Data::Contact::SIDN->new(); });
37             $self->default_parameters({domain_create => { auth => { pw => '' } } }); ## authInfo not used by SIDN
38             return;
39             }
40              
41             sub core_contact_types { return ('admin','tech'); } ## No billing contact in .NL
42             sub default_extensions { return qw/SIDN::Message SIDN::Domain SIDN::Contact SIDN::Host SIDN::Notifications SecDNS KeyRelay/; }
43              
44             ####################################################################################################
45             1;
46              
47             __END__