package ONVIF::PTZ::Elements::RelativeMove; use strict; use warnings; { # BLOCK to scope variables sub get_xmlns { 'http://www.onvif.org/ver20/ptz/wsdl' } __PACKAGE__->__set_name('RelativeMove'); __PACKAGE__->__set_nillable(); __PACKAGE__->__set_minOccurs(); __PACKAGE__->__set_maxOccurs(); __PACKAGE__->__set_ref(); use base qw( SOAP::WSDL::XSD::Typelib::Element SOAP::WSDL::XSD::Typelib::ComplexType ); our $XML_ATTRIBUTE_CLASS; undef $XML_ATTRIBUTE_CLASS; sub __get_attr_class { return $XML_ATTRIBUTE_CLASS; } use Class::Std::Fast::Storable constructor => 'none'; use base qw(SOAP::WSDL::XSD::Typelib::ComplexType); Class::Std::initialize(); { # BLOCK to scope variables my %ProfileToken_of :ATTR(:get); my %Translation_of :ATTR(:get); my %Speed_of :ATTR(:get); __PACKAGE__->_factory( [ qw( ProfileToken Translation Speed ) ], { 'ProfileToken' => \%ProfileToken_of, 'Translation' => \%Translation_of, 'Speed' => \%Speed_of, }, { 'ProfileToken' => 'ONVIF::PTZ::Types::ReferenceToken', 'Translation' => 'ONVIF::PTZ::Types::PTZVector', 'Speed' => 'ONVIF::PTZ::Types::PTZSpeed', }, { 'ProfileToken' => 'ProfileToken', 'Translation' => 'Translation', 'Speed' => 'Speed', } ); } # end BLOCK } # end of BLOCK 1; =pod =head1 NAME ONVIF::PTZ::Elements::RelativeMove =head1 DESCRIPTION Perl data type class for the XML Schema defined element RelativeMove from the namespace http://www.onvif.org/ver20/ptz/wsdl. =head1 PROPERTIES The following properties may be accessed using get_PROPERTY / set_PROPERTY methods: =over =item * ProfileToken $element->set_ProfileToken($data); $element->get_ProfileToken(); =item * Translation $element->set_Translation($data); $element->get_Translation(); =item * Speed $element->set_Speed($data); $element->get_Speed(); =back =head1 METHODS =head2 new my $element = ONVIF::PTZ::Elements::RelativeMove->new($data); Constructor. The following data structure may be passed to new(): { ProfileToken => $some_value, # ReferenceToken Translation => { # ONVIF::PTZ::Types::PTZVector PanTilt => , Zoom => , }, Speed => { # ONVIF::PTZ::Types::PTZSpeed PanTilt => , Zoom => , }, }, =head1 AUTHOR Generated by SOAP::WSDL =cut