package PublishRequestType; use strict; use warnings; use SOAP::Data::ComplexType; use vars qw(@ISA); @ISA = qw(SOAP::Data::ComplexType); use constant OBJ_URI => 'http://services.mydomain.org/broker'; use constant OBJ_TYPE => 'ns1:PublishRequest'; use constant OBJ_FIELDS => { PublishRequest => [[ BrokerMessageType_inner::OBJ_TYPE, BrokerMessageType_inner::OBJ_FIELDS ], BrokerMessageType_inner::OBJ_URI, undef ] }; sub new { my $proto = shift; my $class = ref($proto) || $proto; my $data = shift; my $obj_fields = shift; $obj_fields = defined $obj_fields && ref($obj_fields) eq 'HASH' ? {%{$obj_fields}, %{+OBJ_FIELDS}} : OBJ_FIELDS; my $self = $class->SUPER::new($data, $obj_fields); return bless($self, $class); } package BrokerMessageType_inner; use strict; use warnings; use SOAP::Data::ComplexType; use vars qw(@ISA); @ISA = qw(SOAP::Data::ComplexType); use constant OBJ_URI => 'http://services.mydomain.org/broker'; use constant OBJ_TYPE => 'ns1:PublishRequest'; use constant OBJ_FIELDS => { BrokerMessage => [[ BrokerMessageType::OBJ_TYPE, BrokerMessageType::OBJ_FIELDS ], BrokerMessageType::OBJ_URI, undef ] }; sub new { my $proto = shift; my $class = ref($proto) || $proto; my $data = shift; my $obj_fields = shift; $obj_fields = defined $obj_fields && ref($obj_fields) eq 'HASH' ? {%{$obj_fields}, %{+OBJ_FIELDS}} : OBJ_FIELDS; my $self = $class->SUPER::new($data, $obj_fields); return bless($self, $class); } package BrokerMessageType; use strict; use warnings; use SOAP::Data::ComplexType; use vars qw(@ISA); @ISA = qw(SOAP::Data::ComplexType); use constant OBJ_URI => 'http://services.mydomain.org/broker'; use constant OBJ_TYPE => 'ns1:BrokerMessage'; use constant OBJ_FIELDS => { deliveryMode => ['int', undef, undef], priority => ['int', undef, undef], messageId => ['string', undef, undef], correlationId => ['string', undef, undef], timestamp => ['string', undef, undef], expiration => ['string', undef, undef], destinationName => ['string', undef, undef], textPayload => ['string', undef, undef], }; sub new { my $proto = shift; my $class = ref($proto) || $proto; my $data = shift; my $obj_fields = shift; $obj_fields = defined $obj_fields && ref($obj_fields) eq 'HASH' ? {%{$obj_fields}, %{+OBJ_FIELDS}} : OBJ_FIELDS; my $self = $class->SUPER::new($data, $obj_fields); return bless($self, $class); }