my $class = ref $pkg || $pkg;
my $device = shift;
- my $d = $class->SUPER::new($device, 19200);
- return $d;
+ my $self = $class->SUPER::new($device, 19200);
+ $self->on_read(sub{$d->process});
+ return $self;
}
-sub reset
+sub process
{
-
+ 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) {
+
+ }
}
-sub poll
+sub send
{
-
+ my $self= shift;
+ my $data = shift;
+ if (isdbg('raw')) {
+ dbg("O $self->{device} lth " . length $data);
+ dbgdump(data);
+ } elsif (isdbg('chan')) {
+ dbg("O $self->{device}: $data");
+ }
+ $self->push_write($data)
}
+sub reset
+{
+
+}
1;