view release on metacpan or  search on metacpan

lib/Biblio/RFID/Reader/INET.pm  view on Meta::CPAN

	my $count = $self->SUPER::print(@_);
	$self->flush;
#warn "XX ",ref($self), " write response: $count ", dump(@_);
	return $count;
}

our $read_char_time = 1;
sub read_char_time { $read_char_time = $_[1] * 1_000 || 1_000_000 };
sub read_const_time {};

sub read(*\$$;$) {
	my $self = shift;
	my $len = shift || die "no length?";

#warn "XX ",ref($self), " read $len timeout $read_char_time";
	my $buffer;
	eval {
		local $SIG{ALRM} = sub { die "read timeout" };

		#warn "## read_serial $len timeout $read_char_time\n";