File Coverage

blib/lib/Net/EPP/Frame/Command/Login.pm
Criterion Covered Total %
statement 6 20 30.0
branch n/a
condition n/a
subroutine 2 10 20.0
pod 1 7 14.2
total 9 37 24.3


line stmt bran cond sub pod time code
1             package Net::EPP::Frame::Command::Login;
2 1     1   7 use base qw(Net::EPP::Frame::Command);
  1         2  
  1         89  
3 1     1   6 use strict;
  1         3  
  1         289  
4              
5             =pod
6              
7             =head1 NAME
8              
9             Net::EPP::Frame::Command::Login - an instance of L
10             for the EPP CloginE> command.
11              
12             =head1 OBJECT HIERARCHY
13              
14             L
15             +----L
16             +----L
17             +----L
18             +----L
19              
20             =cut
21              
22             sub _addCommandElements {
23 0     0     my $self = shift;
24 0           $self->getNode('login')->addChild($self->createElement('clID'));
25 0           $self->getNode('login')->addChild($self->createElement('pw'));
26 0           $self->getNode('login')->addChild($self->createElement('options'));
27              
28 0           $self->getNode('options')->addChild($self->createElement('version'));
29 0           $self->getNode('options')->addChild($self->createElement('lang'));
30              
31 0           $self->getNode('login')->addChild($self->createElement('svcs'));
32             }
33              
34             =pod
35              
36             =head1 METHODS
37              
38             my $node = $frame->clID;
39              
40             This method returns the L object corresponding to the
41             CclIDE> element.
42              
43             my $node = $frame->pw;
44              
45             This method returns the L object corresponding to the
46             CpwE> element.
47              
48             my $node = $frame->newPW;
49              
50             This method returns the L object corresponding to the
51             CnewPWE> element.
52              
53             my $node = $frame->svcs;
54              
55             This method returns the L object corresponding to the
56             CsvcsE> element.
57              
58             my $node = $frame->options;
59              
60             This method returns the L object corresponding to the
61             CoptionsE> element.
62              
63             my $node = $frame->version;
64              
65             This method returns the L object corresponding to the
66             CversionE> element.
67              
68             my $node = $frame->lang;
69              
70             This method returns the L object corresponding to the
71             ClangE> element.
72              
73             =cut
74              
75 0     0 0   sub clID { $_[0]->getNode('clID') }
76 0     0 0   sub pw { $_[0]->getNode('pw') }
77 0     0 0   sub newPW { $_[0]->getNode('newPW') }
78 0     0 0   sub svcs { $_[0]->getNode('svcs') }
79 0     0 0   sub options { $_[0]->getNode('options') }
80 0     0 1   sub version { $_[0]->getNode('version') }
81 0     0 0   sub lang { $_[0]->getNode('lang') }
82              
83             1;