view release on metacpan or  search on metacpan

lib/Bosch/RCPPlus/Commands.pm  view on Meta::CPAN

package Bosch::RCPPlus::Commands;
use strict;

use POSIX qw(floor);
use Bosch::RCPPlus::Utils qw(bytes2int);

our %Type = (
	flag => 'F_FLAG',
	unicode => 'P_UNICODE',
	octect => 'P_OCTET',
	word => 'T_DWORD',
);

our %Direction = (
	read => 'READ',
	write => 'WRITE',
);

sub ptz_available

lib/Bosch/RCPPlus/Commands.pm  view on Meta::CPAN

		num => $num || 1,
	);
}

sub name
{
	my ($num) = @_;

	return (
		command => '0x0019',
		type => $Type{unicode},
		drection => $Direction{read},
		num => $num || 1,
	);
}

##*
# -1 <= evt.pan <= 1
# -1 <= evt.tilt <= 1
# Zoom: -1 / +1
#