2 # General device abtraction for DWeather interfaces
6 package DWeather::Station;
11 use base qw(DWeather::Serial);
14 # return a File::IO handle set up for serial operations
19 my $class = ref $pkg || $pkg;
20 my $device = shift || "/dev/ttyS0";
22 my $self = $class->SUPER::new($device, @_);