The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

package XML::EPP::Contact::Delete;

use Moose;
use PRANG::Graph;

sub root_element { 'delete' }

with 'XML::EPP::Contact::RQ', 'XML::EPP::Contact::Node';

has_element 'id' =>
	is => 'ro',
	isa => 'XML::EPP::Common::clIDType',
	;

1;

=head2 XML Schema Definition

<!--
Child element of commands that require only an identifier.
-->
 <complexType name="sIDType">
   <sequence>
     <element name="id" type="eppcom:clIDType"/>
   </sequence>
 </complexType>

=cut