File Coverage

blib/lib/Net/EPP/Frame/Command/Transfer/Contact.pm
Criterion Covered Total %
statement 9 25 36.0
branch n/a
condition n/a
subroutine 3 6 50.0
pod 1 3 33.3
total 13 34 38.2


line stmt bran cond sub pod time code
1             package Net::EPP::Frame::Command::Transfer::Contact;
2 1     1   7 use base qw(Net::EPP::Frame::Command::Transfer);
  1         2  
  1         91  
3 1     1   6 use Net::EPP::Frame::ObjectSpec;
  1         2  
  1         17  
4 1     1   5 use strict;
  1         2  
  1         285  
5              
6             =pod
7              
8             =head1 NAME
9              
10             Net::EPP::Frame::Command::Transfer::Contact - an instance of L
11             for contact objects.
12              
13             =head1 SYNOPSIS
14              
15             use Net::EPP::Frame::Command::Transfer::Contact;
16             use strict;
17              
18             my $info = Net::EPP::Frame::Command::Transfer::Contact->new;
19             $info->setOp('query');
20             $info->setContact('REG-12345');
21              
22             print $info->toString(1);
23              
24             This results in an XML document like this:
25              
26            
27            
28             xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
29             xsi:schemaLocation="urn:ietf:params:xml:ns:epp-1.0
30             epp-1.0.xsd">
31            
32            
33            
34             xmlns:contact="urn:ietf:params:xml:ns:contact-1.0"
35             xsi:schemaLocation="urn:ietf:params:xml:ns:contact-1.0
36             contact-1.0.xsd">
37             REG-12345E/contact:id>
38            
39            
40             0cf1b8f7e14547d26f03b7641660c641d9e79f45
41            
42            
43              
44             =head1 OBJECT HIERARCHY
45              
46             L
47             +----L
48             +----L
49             +----L
50             +----L
51             +----L
52              
53             =cut
54              
55             sub new {
56 0     0 1   my $package = shift;
57 0           my $self = bless($package->SUPER::new('transfer'), $package);
58              
59 0           my $contact = $self->addObject(Net::EPP::Frame::ObjectSpec->spec('contact'));
60              
61 0           return $self;
62             }
63              
64             =pod
65              
66             =head1 METHODS
67              
68             $frame->setContact($contactID);
69              
70             This specifies the contact object for the transfer.
71              
72             =cut
73              
74             sub setContact {
75 0     0 0   my ($self, $id) = @_;
76              
77 0           my $name = $self->createElement('contact:id');
78 0           $name->appendText($id);
79              
80 0           $self->getNode('transfer')->getChildNodes->shift->appendChild($name);
81              
82 0           return 1;
83             }
84              
85             =pod
86              
87             $frame->setAuthInfo($pw);
88              
89             This sets the authInfo code for the transfer.
90              
91             =cut
92              
93             sub setAuthInfo {
94 0     0 0   my ($self, $code) = @_;
95              
96 0           my $pw = $self->createElement('contact:pw');
97 0           $pw->appendText($code);
98              
99 0           my $authInfo = $self->createElement('contact:authInfo');
100 0           $authInfo->appendChild($pw);
101              
102 0           $self->getNode('transfer')->getChildNodes->shift->appendChild($authInfo);
103              
104 0           return 1;
105             }
106              
107             1;