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

use constant OBJ_URI    => 'http://w1.agen.com/services/DeliveryWS';
use constant OBJ_TYPE   => 'ns1:Context';
use constant OBJ_FIELDS => {
        user              => ['soapenc:string', undef, undef],
        agent             => ['xsd:boolean', 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);
}

##</code><code>##

<?xml version="1.0" encoding="UTF-8"?><soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/" xmlns:xsd="http://www.w3.org/2001/XMLSchema" soap:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/"><soap:Body><changeDeliveryState xmlns="http://w1.agen.com/services/DeliveryWS"><c-gensym3><agent xsi:type="xsd:boolean">1</agent><user xsi:type="soapenc:string">jbbec</user></c-gensym3><c-gensym7 xsi:type="xsd:long">526101</c-gensym7><c-gensym9 xsi:type="xsd:long">2</c-gensym9></changeDeliveryState></soap:Body></soap:Envelope>

##</code><code>##

          'int'  => [25, sub {$_[0] =~ /^[+-]?(\d+)$/ && $1 >= -2147483648;}, 'as_long'],
          'long' => [20, sub {$_[0] =~ /^[+-]?(\d+)$/ && $1 >= -2147483648; }, 'as_long'],