package DummyComm
@ISA = qw()

sub new
my ($module, $path, $mode) = @_;
return undef unless($this->Open($path, $mode));
return $this;

sub DESTROY
my $this = shift;

sub Initialize
my ($this) = @_;

sub Configure

sub Open

sub Close

sub ReadLine
return shift->read();

sub read
return 0.0;

sub print

sub printf