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