File Coverage

blib/lib/Net/EPP/Frame/Command/Info/Contact.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::Info::Contact;
2 1     1   19 use base qw(Net::EPP::Frame::Command::Info);
  1         3  
  1         93  
3 1     1   8 use Net::EPP::Frame::ObjectSpec;
  1         4  
  1         17  
4 1     1   4 use strict;
  1         2  
  1         160  
5              
6             =pod
7              
8             =head1 NAME
9              
10             Net::EPP::Frame::Command::Info::Contact - an instance of L
11             for contact objects.
12              
13             =head1 SYNOPSIS
14              
15             use Net::EPP::Frame::Command::Info::Contact;
16             use strict;
17              
18             my $info = Net::EPP::Frame::Command::Info::Contact->new;
19             $info->setContact('REG-12345');
20              
21             print $info->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:contact="urn:ietf:params:xml:ns:contact-1.0"
34             xsi:schemaLocation="urn:ietf:params:xml:ns:contact-1.0
35             contact-1.0.xsd">
36             REG-12345E/contact:id>
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('info'), $package);
57              
58 0           my $contact = $self->addObject(Net::EPP::Frame::ObjectSpec->spec('contact'));
59              
60 0           return $self;
61             }
62              
63             =pod
64              
65             =head1 METHODS
66              
67             $frame->setContact($contactID);
68              
69             This specifies the contact object for which information is being requested.
70              
71             =cut
72              
73             sub setContact {
74 0     0 0   my ($self, $id) = @_;
75              
76 0           my $name = $self->createElement('contact:id');
77 0           $name->appendText($id);
78              
79 0           $self->getNode('info')->getChildNodes->shift->appendChild($name);
80              
81 0           return 1;
82             }
83              
84             1;