File Coverage

blib/lib/Net/DRI/Protocol/EPP/Extensions/CIRA.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, CIRA (.CA) EPP extensions
2             ##
3             ## Copyright (c) 2010,2015 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::CIRA;
16              
17 1     1   881 use strict;
  1         2  
  1         28  
18 1     1   7 use warnings;
  1         2  
  1         25  
19              
20 1     1   4 use base qw/Net::DRI::Protocol::EPP/;
  1         2  
  1         81  
21              
22             use Net::DRI::Util;
23             use Net::DRI::Data::Contact::CIRA;
24              
25             ####################################################################################################
26              
27             sub setup
28             {
29             my ($self,$rp)=@_;
30             my $version=$self->version();
31             $self->ns({cira=>['urn:ietf:params:xml:ns:cira-1.0','cira-1.0.xsd'],
32             poll=>['urn:ietf:params:xml:ns:poll-1.0','poll-1.0.xsd']});
33              
34             $self->factories('contact',sub { return Net::DRI::Data::Contact::CIRA->new(); });
35             $self->default_parameters({domain_create => { auth => { pw => '' } } }); ## authInfo not used by CIRA
36             return;
37             }
38              
39             sub core_contact_types { return ('admin','tech'); } ## No billing contact in .CA
40             sub default_extensions { return qw/CIRA::Domain CIRA::Contact CIRA::Agreement CIRA::Notifications CIRA::IDN/; }
41              
42             ####################################################################################################
43             1;
44              
45             __END__