File Coverage

blib/lib/Net/EPP/Frame/Command/Poll/Ack.pm
Criterion Covered Total %
statement 6 13 46.1
branch n/a
condition n/a
subroutine 2 4 50.0
pod 1 2 50.0
total 9 19 47.3


line stmt bran cond sub pod time code
1             package Net::EPP::Frame::Command::Poll::Ack;
2 1     1   7 use base qw(Net::EPP::Frame::Command::Poll);
  1         3  
  1         91  
3 1     1   6 use strict;
  1         2  
  1         141  
4              
5             =pod
6              
7             =head1 NAME
8              
9             Net::EPP::Frame::Command::Poll::Ack - an instance of L
10             for the EPP CPollE> acknowledge command.
11              
12             =head1 OBJECT HIERARCHY
13              
14             L
15             +----L
16             +----L
17             +----L
18             +----L
19              
20             =cut
21              
22             sub new {
23 0     0 1   my $package = shift;
24 0           my $self = bless($package->SUPER::new('poll'), $package);
25 0           $self->getCommandNode->setAttribute('op' => 'ack');
26 0           return $self;
27             }
28              
29             =pod
30              
31             =head1 METHODS
32              
33             $frame->setMsgID($id);
34              
35             This method sets the C attribute on the CpollE> element that
36             is used to specify the message ID being acknowleged.
37              
38             =cut
39              
40             sub setMsgID {
41 0     0 0   my ($self, $id) = @_;
42 0           $self->getCommandNode->setAttribute('msgID' => $id);
43 0           return 1;
44             }
45              
46             1;