DWeather/lib/DWeather/Station.pm

   1 #
   2 # General device abtraction for DWeather interfaces
   3 #
   4 #
   5
   6 package DWeather::Station;
   7
   8 use strict;
   9 use warnings;
  10
  11 use base qw(DWeather::Serial);
  12 use DWeather::Debug;
  13
  14 # return a File::IO handle set up for serial operations
  15
  16 sub new
  17 {
  18         my $pkg = shift;
  19         my $class = ref $pkg || $pkg;
  20         my $device = shift || "/dev/ttyS0";
  21
  22         my $self = $class->SUPER::new($device, @_);
  23         return $self;
  24 }
  25
  26 1;