package ArcLamp
@ISA = qw()

sub BEGIN

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

sub DESTROY
my $this = shift;

sub GetFunctions
return "|LightSource|";

sub Initialize
my ($this) = @_;

sub Finish
my ($this) = @_;

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

sub GetId
my ($this) = @_;
return $this->read();
return "ArcLamp(fixed response from Perl.pm)";

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

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

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

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

sub SetMode
my ($this, $status) = @_;

sub SetCommPanel
my ($this, $status) = @_;

sub PRESET
my ($this, $power) = @_;