#
# General device abtraction for DWeather interfaces
#
#

package DWeather::Station;

use strict;
use warnings;

use base qw(DWeather::Serial);
use DWeather::Debug;

# return a File::IO handle set up for serial operations

sub new
{
	my $pkg = shift;
	my $class = ref $pkg || $pkg;
	my $device = shift || "/dev/ttyS0";
	
	my $self = $class->SUPER::new($device, @_);
	return $self;
}


1;
