Dave Cross: Still Munging Data With Perl: Online event - Mar 17 Learn more

use Moose;
our $SCHEMA_PKG = "XML::EPP::Contact";
has_attr 'x' =>
is => 'rw',
isa => 'PRANG::XMLSchema::token',
;
has_element 'content' =>
is => 'rw',
isa => 'XML::EPP::Contact::e164StringType',
xml_nodeName => '',
;
subtype "${SCHEMA_PKG}::pwAuthInfoType"
=> as __PACKAGE__;
1;
=head1 NAME
XML::EPP::Contact::E164 - implement e164Type
=head1 SYNOPSIS
TODO
=head1 DESCRIPTION
...
=head2 XML Schema Definition
<complexType name="e164Type">
<simpleContent>
<extension base="contact:e164StringType">
<attribute name="x" type="token"/>
</extension>
</simpleContent>
</complexType>
=cut