#!/usr/bin/perl -w package ONVIF::Serializer::SOAP12; use strict; use warnings; use base qw(ONVIF::Serializer::Base); use SOAP::WSDL::Factory::Serializer; SOAP::WSDL::Factory::Serializer->register( '1.2' , __PACKAGE__ ); sub BUILD { my ($self, $ident, $args_ref) = @_; # $soapversion_of{ $ident } = '1.2'; $self->set_soap_version('1.2'); } 1;