wip

[dweather.git] / DWeather / lib / DWeather / Vantage.pm

diff --git a/DWeather/lib/DWeather/Vantage.pm b/DWeather/lib/DWeather/Vantage.pm
new file mode 100644 (file)
index 0000000..54cbb4a
--- /dev/null
+++ b/DWeather/lib/DWeather/Vantage.pm
@@ -0,0 +1,30 @@
+#
+# Vantage Pro 2 interface for DWeather
+#
+#
+
+use strict;
+use warnings;
+
+use base qw(DWeather::Serial);
+use AnyEvent;
+
+sub new
+{
+       my $pkg = shift;
+       my $class = ref $pkg || $pkg;
+       my $device = shift || '/dev/ttyS0';
+       
+       my $self = $class->SUPER::new($device, 19200);
+       return $self;
+}
+
+sub send
+{
+       
+}
+
+sub run
+{
+
+}