File Coverage

blib/lib/Net/EPP/Frame/Command/Update.pm
Criterion Covered Total %
statement 15 27 55.5
branch 0 6 0.0
condition n/a
subroutine 5 8 62.5
pod 0 3 0.0
total 20 44 45.4


line stmt bran cond sub pod time code
1             package Net::EPP::Frame::Command::Update;
2 1     1   453 use Net::EPP::Frame::Command::Update::Contact;
  1         3  
  1         26  
3 1     1   453 use Net::EPP::Frame::Command::Update::Domain;
  1         3  
  1         40  
4 1     1   444 use Net::EPP::Frame::Command::Update::Host;
  1         2  
  1         33  
5 1     1   7 use base qw(Net::EPP::Frame::Command);
  1         2  
  1         100  
6 1     1   6 use strict;
  1         2  
  1         334  
7              
8             =pod
9              
10             =head1 NAME
11              
12             Net::EPP::Frame::Command::Update - an instance of L
13             for the EPP CupdateE> command.
14              
15             =head1 OBJECT HIERARCHY
16              
17             L
18             +----L
19             +----L
20             +----L
21             +----L
22              
23             =head1 METHODS
24              
25             =cut
26              
27             sub add {
28 0     0 0   my $self = shift;
29 0           foreach my $el ($self->getNode('update')->getChildNodes->shift->getChildNodes) {
30 0           my (undef, $name) = split(/:/, $el->localName, 2);
31 0 0         return $el if ($name eq 'add');
32             }
33             }
34              
35             sub rem {
36 0     0 0   my $self = shift;
37 0           foreach my $el ($self->getNode('update')->getChildNodes->shift->getChildNodes) {
38 0           my (undef, $name) = split(/:/, $el->localName, 2);
39 0 0         return $el if ($name eq 'rem');
40              
41             }
42             }
43              
44             sub chg {
45 0     0 0   my $self = shift;
46 0           foreach my $el ($self->getNode('update')->getChildNodes->shift->getChildNodes) {
47 0           my (undef, $name) = split(/:/, $el->localName, 2);
48 0 0         return $el if ($name eq 'chg');
49             }
50             }
51              
52             =pod
53              
54             my $el = $frame->add;
55             my $el = $frame->rem;
56             my $el = $frame->chg;
57              
58             These methods return the elements that should be used to contain the changes
59             to be made to the object (ie C, C, C).
60              
61             =cut
62              
63             1;