##

Type 'Context' can't be found in a schema class 'SOAP::Serializer'

##

##



  
    1

    jbbec
  


##

##

my $request_obj = ContextType_inner->new({Context=>{
                user    => 'jbbec',
                agent    => 1        }});

print $request_obj->as_xml_data;# it's printing what is written above

##

##

package ContextType;
use strict;
use warnings;
use SOAP::Data::ComplexType;
use vars qw(@ISA);
@ISA = qw(SOAP::Data::ComplexType);

use constant OBJ_URI    => 'http://my_serv/services/DeliveryWS?wsdl';
use constant OBJ_TYPE   => '';
use constant OBJ_FIELDS => {
        user              => ['string', undef, undef],
        agent             => ['int', 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);
}

package ContextType_inner;
use strict;
use warnings;
use SOAP::Data::ComplexType;
use vars qw(@ISA);
@ISA = qw(SOAP::Data::ComplexType);

use constant OBJ_URI    => 'http://my_serv/services/DeliveryWS?wsdl';
use constant OBJ_TYPE   => '';
use constant OBJ_FIELDS => {
        Context                => [
                [
                        ContextType::OBJ_TYPE,
                        ContextType::OBJ_FIELDS
                ],
                ContextType::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);
}