triddle/Firmdata — pull request #1 by rcaputo (2012-08-04 23:17:54+00:00)
Title: some Device::SerialPort support

This isn't complete. It still has big timing issues. A few percent of the time it'll work, but it mostly fails with one of these:

% perl -Ilib work.pl portName /dev/cu.usbmodem641
Debug level: /dev/cu.usbmodem641 = 1 at lib//Device/Firmdata/Role/IO/DeviceSerial.pm line 28
Unknown system message type: 25 at lib//Device/Firmdata.pm line 165.
attempt to send command 'SESSION_START' while waiting for the response from command SESSION_START at lib//Device/Firmdata.pm line 99.
Destroying /dev/cu.usbmodem641 at lib//Device/Firmdata.pm line 99

or

% perl -Ilib work.pl portName /dev/cu.usbmodem641
Debug level: /dev/cu.usbmodem641 = 1 at lib//Device/Firmdata/Role/IO/DeviceSerial.pm line 28
Unknown system message type: 25 at lib//Device/Firmdata.pm line 165.
Session started at Sat Aug 4 19:13:58 2012
the last sent command was 13 but the response is to command 11 at lib//Device/Firmdata.pm line 193.
Destroying /dev/cu.usbmodem641 at lib//Device/Firmdata.pm line 193

or

% perl -Ilib work.pl portName /dev/cu.usbmodem641
Debug level: /dev/cu.usbmodem641 = 1 at lib//Device/Firmdata/Role/IO/DeviceSerial.pm line 28
Unknown system message type: 8 at lib//Device/Firmdata.pm line 165.
Session started at Sat Aug 4 19:14:01 2012
received a response to command 11 but there is no record of an outstanding command at lib//Device/Firmdata.pm line 191.
Destroying /dev/cu.usbmodem641 at lib//Device/Firmdata.pm line 191