+ my $self = shift;
+ my $data = $self->{rbuf};
+ $self->{rbuf} = '';
+
+ if (isdbg('raw')) {
+ dbg("I $self->{device} lth " . length $data);
+ dbgdump(data);
+ } elsif (isdbg('chan')) {
+ dbg("I $self->{device}: $data");
+ }
+ foreach my $ch (@ch) {
+
+ }