Select Code to Download

package ContextType;
use strict;
...
      my $self = $class->SUPER::new($data, $obj_fields);
      return bless($self, $class);
}

<?xml version="1.0" encoding="UTF-8"?><soap:Envelope xmlns:xsi="http:/
+/www.w3.org/2001/XMLSchema-instance" xmlns:soapenc="http://schemas.xm
+lsoap.org/soap/encoding/" xmlns:xsd="http://www.w3.org/2001/XMLSchema
+" soap:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" xmln
+s:soap="http://schemas.xmlsoap.org/soap/envelope/"><soap:Body><change
+DeliveryState xmlns="http://w1.agen.com/services/DeliveryWS"><c-gensy
+m3><agent xsi:type="xsd:boolean">1</agent><user xsi:type="soapenc:str
+ing">jbbec</user></c-gensym3><c-gensym7 xsi:type="xsd:long">526101</c
+-gensym7><c-gensym9 xsi:type="xsd:long">2</c-gensym9></changeDelivery
+State></soap:Body></soap:Envelope>

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