package Cornerstone130
@ISA = qw()

sub BEGIN

sub new
my ($module, @args) = @_;
return $this;

sub DESTROY
my $this = shift;

sub GetFunctions
return "|Wavelength|";

sub Initialize
my ($this) = @_;

sub Finish
my ($this) = @_;

sub eof
my ($this) = @_;
return $this->{CommObject}->eof();

sub GetWave
my ($this) = @_;
return $wl;

sub GetId
return "CornerStone130(fixed response from Perl.pm)";

sub GOWAVE
my ($this, $wavelength) = @_;
return $wl;

sub GoWave
my ($this, $wavelength) = @_;
return $this->GOWAVE($wavelength);

sub Shutter
my ($this, $status) = @_;
return $this->read();

sub ChangeGrating
my ($this, $iGrating, $Wait) = @_;
return 0 if(defined $this->{CurrentGrating} and $this->{CurrentGrating} == $iGrating);
return 1 if($iGrating == $iCurrentGrating);
return 1;

sub GetGrating
my ($this) = @_;
return ($iGrating, $nGratings);