view release on metacpan or  search on metacpan

eg/demo3.plx  view on Meta::CPAN

my $par_e=get_tf(scalar $ob->parity_enable);

my $xon_c="Win32";
my $xof_c="Win32";
my $eof_c="Win32";
my $evt_c="Win32";
my $err_c="Win32";

## if ($rint == 0xffffffff) { $rint = "OFF "; }

sub update_menu {
	$baud=$ob->baudrate;
	$par=$ob->parity;
	$data=$ob->databits;
	$stop=$ob->stopbits;
	$hshake=$ob->handshake;
## 	$rint=$ob->read_interval;
	$rconst=$ob->read_const_time;
	$rchar=$ob->read_char_time;
## 	$wconst=$ob->write_const_time;
## 	$wchar=$ob->write_char_time;