DWeather/lib/DWeather/Vantage.pm

   1 #
   2 # Vantage Pro 2 interface for DWeather
   3 #
   4 #
   5
   6 use strict;
   7 use warnings;
   8
   9 use base qw(DWeather::Serial);
  10 use AnyEvent;
  11
  12 sub new
  13 {
  14         my $pkg = shift;
  15         my $class = ref $pkg || $pkg;
  16         my $device = shift || '/dev/ttyS0';
  17
  18         my $self = $class->SUPER::new($device, 19200);
  19         return $self;
  20 }
  21
  22 sub send
  23 {
  24
  25 }
  26
  27 sub run
  28 {
  29
  30 }