File Coverage

blib/lib/Net/DRI/Protocol/IRIS.pm
Criterion Covered Total %
statement 13 15 86.6
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 18 20 90.0


line stmt bran cond sub pod time code
1             ## Domain Registry Interface, IRIS Protocols (RFC 3981,3982,3983,4414,4698,4991,4992,4993,5144)
2             ##
3             ## Copyright (c) 2008-2010 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::IRIS;
16              
17 1     1   740 use strict;
  1         1  
  1         27  
18 1     1   3 use warnings;
  1         4  
  1         24  
19              
20 1     1   4 use base qw(Net::DRI::Protocol);
  1         2  
  1         69  
21              
22 1     1   5 use Net::DRI::Util;
  1         2  
  1         21  
23 1     1   470 use Net::DRI::Protocol::IRIS::Message;
  0            
  0            
24             use Net::DRI::Protocol::IRIS::DCHK::Status;
25              
26             =pod
27              
28             =head1 NAME
29              
30             Net::DRI::Protocol::IRIS - IRIS Protocols (RFC 3981,3982,3983,4414,4698,4991,4992,4993,5144) for Net::DRI
31              
32             =head1 DESCRIPTION
33              
34             Please see the README file for details.
35              
36             Currently only DCHK (RFC5144) over LWZ (RFC4993) is supported.
37              
38             =head1 SUPPORT
39              
40             For now, support questions should be sent to:
41              
42             Enetdri@dotandco.comE
43              
44             Please also see the SUPPORT file in the distribution.
45              
46             =head1 SEE ALSO
47              
48             Ehttp://www.dotandco.com/services/software/Net-DRI/E
49              
50             =head1 AUTHOR
51              
52             Patrick Mevzek, Enetdri@dotandco.comE
53              
54             =head1 COPYRIGHT
55              
56             Copyright (c) 2008-2010 Patrick Mevzek .
57             All rights reserved.
58              
59             This program is free software; you can redistribute it and/or modify
60             it under the terms of the GNU General Public License as published by
61             the Free Software Foundation; either version 2 of the License, or
62             (at your option) any later version.
63              
64             See the LICENSE file that comes with this distribution for more details.
65              
66             =cut
67              
68             ####################################################################################################
69              
70             sub new
71             {
72             my ($c,$ctx,$rp)=@_;
73             my $version=$rp->{version};
74             my $authority=$rp->{authority};
75             my $self=$c->SUPER::new($ctx);
76             $self->name('IRIS');
77             $version=Net::DRI::Util::check_equal($version,['1.0'],'1.0');
78             $self->version($version);
79             $self->ns({ iris1 => ['urn:ietf:params:xml:ns:iris1','iris1.xsd'],
80             dchk1 => ['urn:ietf:params:xml:ns:dchk1','dchk1.xsd'],
81             });
82             my %o;
83             $o{request_deflate}=exists $rp->{request_deflate} ? $rp->{request_deflate} : 1;
84             $self->factories('message',sub { my $m=Net::DRI::Protocol::IRIS::Message->new(@_); $m->ns($self->ns()); $m->version($version); $m->authority($authority); $m->options(\%o); return $m; });
85             $self->factories('status',sub { return Net::DRI::Protocol::IRIS::DCHK::Status->new(); });
86             $self->_load('Net::DRI::Protocol::IRIS::DCHK::Domain');
87             return $self;
88             }
89              
90             sub ns
91             {
92             my ($self,$add)=@_;
93             $self->{ns}={ ref $self->{ns} ? %{$self->{ns}} : (), %$add } if (defined $add && ref $add eq 'HASH');
94             return $self->{ns};
95             }
96              
97             ## This will need to be slightly re-engineered once we do other things than DCHK in IRIS
98             sub transport_default
99             {
100             my ($self)=@_;
101             return (protocol_connection => 'Net::DRI::Protocol::IRIS::LWZ', protocol_version => '1.0');
102             }
103              
104             ####################################################################################################
105             1;