my $pole_display = PerlPOS::PDI->new('lc3000', '/dev/ttyS0'); $pole_display->clear(); # Get to a consistent state/clear screen. $pole_display->print_line('3x box of rice @ $1.00'); $pole_display->print_line('Subtotal: $34.50'); .... $pole_display->close();
This module is intended to be something like a unified interface framework for point of sale customer-facing pole displays.
That we can use standard reading and writing to the file to determine status or write output
That all drivers have relatively simple needs (namely to write to the display, to clear it, and so forth)
The driver is responsible for handling escaping of special characters in the print_line input. Newlines are not valid characters to send in a print_line.