File Coverage

blib/lib/Net/DRI/Protocol/AFNIC/WS.pm
Criterion Covered Total %
statement 18 32 56.2
branch n/a
condition n/a
subroutine 6 9 66.6
pod 1 1 100.0
total 25 42 59.5


line stmt bran cond sub pod time code
1             ## Domain Registry Interface, AFNIC Web Services Protocol
2             ##
3             ## Copyright (c) 2005,2008-2010,2013 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::AFNIC::WS;
16              
17 1     1   769 use strict;
  1         1  
  1         29  
18 1     1   4 use warnings;
  1         2  
  1         22  
19              
20 1     1   8 use base qw(Net::DRI::Protocol);
  1         1  
  1         66  
21              
22 1     1   4 use Net::DRI::Exception;
  1         2  
  1         20  
23 1     1   3 use Net::DRI::Util;
  1         1  
  1         15  
24              
25 1     1   7 use Net::DRI::Protocol::AFNIC::WS::Message;
  1         2  
  1         6  
26              
27             =pod
28              
29             =head1 NAME
30              
31             Net::DRI::Protocol::AFNIC::WS - AFNIC Web Services Protocol 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) 2005,2008-2010,2013 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 1   my ($c,$ctx,$rp)=@_;
72 0           my $self=$c->SUPER::new($ctx);
73 0           $self->name('afnic_ws');
74 0           $self->version('0.1');
75 0     0     $self->factories('message',sub { my $m=Net::DRI::Protocol::AFNIC::WS::Message->new(); $m->version('0.1'); return $m; });
  0            
  0            
  0            
76 0           $self->_load($rp);
77 0           return $self;
78             }
79              
80             sub _load
81             {
82 0     0     my ($self,$rp)=@_;
83 0           my @class=map { 'Net::DRI::Protocol::AFNIC::WS::'.$_ } ('Domain');
  0            
84 0           return $self->SUPER::_load(@class);
85             }
86              
87             ####################################################################################################
88             1;