X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=DWeather%2Flib%2FDWeather%2FVantage.pm;fp=DWeather%2Flib%2FDWeather%2FVantage.pm;h=54cbb4a46521c16eb925597f12717e550bdc3081;hb=631bc0f2b224c9ebfd1dd5827814e5aba3e6d023;hp=0000000000000000000000000000000000000000;hpb=dc4a7b485f2c395471e3f7b64667da3625dcdc64;p=dweather.git

diff --git a/DWeather/lib/DWeather/Vantage.pm b/DWeather/lib/DWeather/Vantage.pm
new file mode 100644
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
+{
+
+}