package Laserstar3APLS
@ISA = qw()

sub BEGIN

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

sub DESTROY
my $this = shift;

sub GetFunctions
return "|LightPower|";

sub Initialize
my ($this) = @_;

sub Finish
my ($this) = @_;

sub GetId
my ($this) = @_;

sub SendPower
my ($this) = @_;
return $this->read();

sub SendEnergy
my ($this) = @_;
return $this->read();

sub SendFrequency
my ($this) = @_;

sub Measure
	my($this, $wavelength) = 
return "Invalid Mode\n";
return $1;
return "Data not measured [$ret]\n";

sub SetPowerMode
my ($this) = @_;

sub SetEnergyMode
my ($this) = @_;

sub ChangeChannel
my ($this, $ch) = @_;

sub SetRange
my ($this, $iRange) = @_;

sub SetWavelength
my ($this, $wavelength) = @_;

sub GetWavelengthSettings
my ($this) = @_;
return $this->read();

sub ShowInformations
my ($this) = @_;
return $ret;