#============================================================
# DummyComm
#============================================================
package DummyComm;
#@ISA = qw(JFile);

#公開したいサブルーチン
#@EXPORT = qw();

use strict;
use Win32::SerialPort;

use Symbol qw(gensym);

use Utils;
use Deps;

sub new
{
	my ($module, $path, $mode) = @_;
	my $this = {};
	bless $this;
	if(defined $path and defined $mode) {
		return undef unless($this->Open($path, $mode));
	}
	return $this;
}

sub DESTROY
{
	my $this = shift;
	$this->Close();
}

sub Initialize
{
	my ($this) = @_;

}

sub Configure
{
}

sub Open
{
}

sub Close
{
}

sub ReadLine { return shift->read(); }
sub read
{
	return 0.0;
}

sub print
{
}

sub printf
{
}

1;