ControlX10::CM11 2.09

ControlX10::CM11 is a Perl extension for X10 ActiveHome Controller.

SYNOPSIS

use ControlX10::CM11;

# $serial_port is an object created using Win32::SerialPort
# or Device::SerialPort depending on OS
# my $serial_port = setup_serial_port(COM10, 4800);

$data = &ControlX10::CM11::receive_buffer($serial_port);
$data = &ControlX10::CM11::read($serial_port, $no_block);
$percent = &ControlX10::CM11::dim_level_decode(GE); # 40%

&ControlX10::CM11::send($serial_port, A1); # Address device A1
&ControlX10::CM11::send($serial_port, AJ); # Turn device ON
# House Code A present in both send() calls

&ControlX10::CM11::send($serial_port, B.ALL_OFF);
# Turns All lights on house code B off