The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package Example::Op::CreateCustomer::Request;

use Moose;

use MooseX::Types::XMLSchema qw( :all );
use WSDL::Compile::Meta::Attribute::WSDL;

has '_operation_documentation' => (
    is => 'ro',
    isa => 'Str',
    default => 'This is an example of documentation of an CreateCustomer operation',
);
has 'TemplateCode' => (
    metaclass => 'WSDL',
    is => 'rw',
    isa => 'Maybe[xs:string]',
    required => 1,
    xs_minOccurs => 1,
    xs_maxOccurs => 1,
);
has 'CustomerID' => (
    metaclass => 'WSDL',
    is => 'rw',
    isa => 'ArrayRef[xs:string]',
    xs_maxOccurs => undef,
);
has 'CustomerType' => (
    metaclass => 'WSDL',
    is => 'rw',
    isa => 'ArrayRef[Maybe[xs:string]]',
    xs_minOccurs => 0,
    xs_maxOccurs => undef,
);
has 'Title' => (
    metaclass => 'WSDL',
    is => 'rw',
    isa => 'xs:string',
);
has 'Contact' => (
    metaclass => 'WSDL',
    is => 'rw',
    isa => 'Example::CT::Contact',
    xs_minOccurs => 0,
);
has 'Contacts' => (
    metaclass => 'WSDL',
    is => 'rw',
    isa => 'ArrayRef[Example::CT::Contact]',
    xs_minOccurs => 0,
    xs_maxOccurs => undef,
);
has 'BuildingNumber' => (
    metaclass => 'WSDL',
    is => 'rw',
    isa => 'Maybe[xs:int]',
);
has 'loaded' => (
    is => 'rw',
    isa => 'Bool',
);

=head3 BUILD

WSDL::Compile allows you to call your own methods - in this example just after
$self was created.

=cut

sub BUILD {
    my $self = shift;

    $self->loaded(1);
}

no Moose;

1;