File Coverage

blib/lib/Net/DRI/Protocol/EPP/Extensions/TCI.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, .RU/.SU/.XN--P1AI EPP Extension for Net::DRI
2             ##
3             ## Copyright (c) 2010-2011 Dmitry Belyavsky
4             ## 2011-2013 Patrick Mevzek . All rights reserved.
5             ##
6             ## This file is part of Net::DRI
7             ##
8             ## Net::DRI is free software; you can redistribute it and/or modify
9             ## it under the terms of the GNU General Public License as published by
10             ## the Free Software Foundation; either version 2 of the License, or
11             ## (at your option) any later version.
12             ##
13             ## See the LICENSE file that comes with this distribution for more details.
14             ####################################################################################################
15              
16             package Net::DRI::Protocol::EPP::Extensions::TCI;
17              
18 1     1   639 use strict;
  1         1  
  1         22  
19 1     1   2 use warnings;
  1         2  
  1         20  
20              
21 1     1   3 use base qw(Net::DRI::Protocol::EPP);
  1         2  
  1         54  
22             use Net::DRI::Protocol::EPP::Extensions::TCI::Message;
23             use Net::DRI::Data::Contact::TCI;
24              
25             ####################################################################################################
26              
27             sub setup
28             {
29             my ($self,$rp)=@_;
30             $self->ns({ domain => ['http://www.ripn.net/epp/ripn-domain-1.0', 'ripn-domain-1.0.xsd'],
31             _main => ['http://www.ripn.net/epp/ripn-epp-1.0', 'ripn-epp-1.0.xsd'],
32             contact => ['http://www.ripn.net/epp/ripn-contact-1.0','ripn-contact-1.0.xsd'],
33             host => ['http://www.ripn.net/epp/ripn-host-1.0', 'ripn-host-1.0.xsd'],
34             registrar => ['http://www.ripn.net/epp/ripn-registrar-1.0', 'ripn-registrar-1.0.xsd'],
35             secDNS => ['urn:ietf:params:xml:ns:secDNS-1.1', 'secDNS-1.1.xsd'],
36             });
37             $self->factories('message',sub { my $m= Net::DRI::Protocol::EPP::Extensions::TCI::Message->new(@_); $m->ns($self->ns()); $m->version($self->version() ); return $m; });
38             $self->factories('contact',sub { return Net::DRI::Data::Contact::TCI->new(); });
39              
40             foreach my $o (qw/contact/) { $self->capabilities('contact_update',$o,['set']); }
41             foreach my $o (qw/contact description/) { $self->capabilities('domain_update',$o,['set']); }
42             foreach my $o (qw/ns/) { $self->capabilities('domain_update',$o,['add', 'del']); }
43             return;
44             }
45              
46             sub core_modules
47             {
48             my ($self,$rp)=@_;
49             my @c=map { 'Net::DRI::Protocol::EPP::Extensions::TCI::'.$_ } qw/Contact/;
50             push @c, map { 'Net::DRI::Protocol::EPP::Core::'.$_ } qw/Session RegistryMessage Domain Host/;
51             return @c;
52             }
53              
54             sub default_extensions { return qw(TCI::Contact TCI::Domain TCI::Registrar SecDNS); }
55              
56             ####################################################################################################
57             1;
58              
59             =pod
60              
61             =head1 NAME
62              
63             Net::DRI::Protocol::EPP::Extensions::TCI - TCI EPP Extensions for Net::DRI
64              
65             =head1 DESCRIPTION
66              
67             Please see the README file for details.
68              
69             =head1 SUPPORT
70              
71             For now, support questions should be sent to:
72              
73             Enetdri@dotandco.comE
74              
75             Please also see the SUPPORT file in the distribution.
76              
77             =head1 SEE ALSO
78              
79             Ehttp://www.dotandco.com/services/software/Net-DRI/E
80              
81             =head1 AUTHOR
82              
83             Dmitry Belyavsky, Ebeldmit@gmail.comE
84             Patrick Mevzek, Enetdri@dotandco.comE
85              
86             =head1 COPYRIGHT
87              
88             Copyright (c) 2010-2011 Dmitry Belyavsky
89             Copyright (c) 2011-2013 Patrick Mevzek .
90             All rights reserved.
91              
92             This program is free software; you can redistribute it and/or modify
93             it under the terms of the GNU General Public License as published by
94             the Free Software Foundation; either version 2 of the License, or
95             (at your option) any later version.
96              
97             See the LICENSE file that comes with this distribution for more details.
98              
99             =cut