File Coverage

blib/lib/Net/EPP/Frame/Greeting.pm
Criterion Covered Total %
statement 3 14 21.4
branch n/a
condition n/a
subroutine 1 7 14.2
pod 0 5 0.0
total 4 26 15.3


line stmt bran cond sub pod time code
1             # Copyright (c) 2016 CentralNic Ltd. All rights reserved. This program is
2             # free software; you can redistribute it and/or modify it under the same
3             # terms as Perl itself.
4             #
5             # $Id: Greeting.pm,v 1.3 2011/12/03 11:44:51 gavin Exp $
6             package Net::EPP::Frame::Greeting;
7 1     1   3 use base qw(Net::EPP::Frame);
  1         1  
  1         200  
8              
9             =pod
10              
11             =head1 NAME
12              
13             Net::EPP::Frame::Greeting - an instance of L for server greetings
14              
15             =head1 DESCRIPTION
16              
17             This module is a subclass of L that represents EPP server
18             greetings.
19              
20             According to the EPP RFC, the server must transmit an EPP greeting frame to the
21             client upon connection, and in response to an EPP ChelloE> command.
22             The CgreetingE> frame provides information about the server,
23             including the server time, access control rules, and a list of the object
24             types that are provisioned by the server.
25              
26             =head1 OBJECT HIERARCHY
27              
28             L
29             +----L
30             +----L
31             +----L
32              
33              
34             =cut
35              
36             sub _addExtraElements {
37 0     0     my $self = shift;
38 0           $self->greeting->addChild($self->createElement('svID'));
39 0           $self->greeting->addChild($self->createElement('svDate'));
40 0           $self->greeting->addChild($self->createElement('svcMenu'));
41 0           $self->greeting->addChild($self->createElement('dcp'));
42 0           return 1;
43             }
44              
45             =pod
46              
47             =head1 METHODS
48              
49             my $node = $frame->greeting;
50              
51             This method returns the L object corresponding to the
52             CgreetingE> element.
53              
54             my $node = $frame->svID;
55              
56             This method returns the L object corresponding to the
57             CsvIDE> element.
58              
59             my $node = $frame->svDate;
60              
61             This method returns the L object corresponding to the
62             CsvDateE> element.
63              
64             my $node = $frame->svcMenu;
65              
66             This method returns the L object corresponding to the
67             CsvcMenuE> element.
68              
69             my $node = $frame->dcp;
70              
71             This method returns the L object corresponding to the
72             CdcpE> element.
73              
74             =cut
75              
76 0     0 0   sub greeting { $_[0]->getNode('greeting') }
77 0     0 0   sub svID { $_[0]->getNode('svID') }
78 0     0 0   sub svDate { $_[0]->getNode('svDate') }
79 0     0 0   sub svcMenu { $_[0]->getNode('svcMenu') }
80 0     0 0   sub dcp { $_[0]->getNode('dcp') }
81              
82             =pod
83              
84             =head1 AUTHOR
85              
86             CentralNic Ltd (http://www.centralnic.com/).
87              
88             =head1 COPYRIGHT
89              
90             This module is (c) 2016 CentralNic Ltd. This module is free software; you can
91             redistribute it and/or modify it under the same terms as Perl itself.
92              
93             =head1 SEE ALSO
94              
95             =over
96              
97             =item * L
98              
99             =back
100              
101             =cut
102              
103             1;