File Coverage

blib/lib/Net/EPP/Frame/Command/Delete/Domain.pm
Criterion Covered Total %
statement 9 18 50.0
branch n/a
condition n/a
subroutine 3 5 60.0
pod 1 2 50.0
total 13 25 52.0


line stmt bran cond sub pod time code
1             package Net::EPP::Frame::Command::Delete::Domain;
2 1     1   7 use base qw(Net::EPP::Frame::Command::Delete);
  1         1  
  1         93  
3 1     1   7 use Net::EPP::Frame::ObjectSpec;
  1         3  
  1         17  
4 1     1   5 use strict;
  1         2  
  1         204  
5              
6             =pod
7              
8             =head1 NAME
9              
10             Net::EPP::Frame::Command::Delete::Domain - an instance of L
11             for domain names.
12              
13             =head1 SYNOPSIS
14              
15             use Net::EPP::Frame::Command::Delete::Domain;
16             use strict;
17              
18             my $delete = Net::EPP::Frame::Command::Delete::Domain->new;
19             $delete->setDomain('example.tld');
20              
21             print $delete->toString(1);
22              
23             This results in an XML document like this:
24              
25            
26            
27             xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
28             xsi:schemaLocation="urn:ietf:params:xml:ns:epp-1.0
29             epp-1.0.xsd">
30            
31            
32            
33             xmlns:domain="urn:ietf:params:xml:ns:domain-1.0"
34             xsi:schemaLocation="urn:ietf:params:xml:ns:domain-1.0
35             domain-1.0.xsd">
36             example.tldE/domain:name>
37            
38            
39             0cf1b8f7e14547d26f03b7641660c641d9e79f45
40            
41            
42              
43             =head1 OBJECT HIERARCHY
44              
45             L
46             +----L
47             +----L
48             +----L
49             +----L
50             +----L
51              
52             =cut
53              
54             sub new {
55 0     0 1   my $package = shift;
56 0           my $self = bless($package->SUPER::new('delete'), $package);
57              
58 0           my $domain = $self->addObject(Net::EPP::Frame::ObjectSpec->spec('domain'));
59              
60 0           return $self;
61             }
62              
63             =pod
64              
65             =head1 METHODS
66              
67             $frame->setDomain($domain_name);
68              
69             This specifies the domain name to be deleted.
70              
71             =cut
72              
73             sub setDomain {
74 0     0 0   my ($self, $domain) = @_;
75              
76 0           my $name = $self->createElement('domain:name');
77 0           $name->appendText($domain);
78              
79 0           $self->getNode('delete')->getChildNodes->shift->appendChild($name);
80              
81 0           return 1;
82             }
83              
84             1;