20 lines
352 B
Perl
20 lines
352 B
Perl
|
#!/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;
|