package SteppingmotorD92
@ISA = qw()

sub BEGIN

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

sub DESTROY
my $this = shift;

sub GetFunctions
return "|Wavelength|Position|";

sub Initialize
my ($this) = @_;

sub Finish
my ($this) = @_;

sub GetId
my ($this) = @_;
return 'Fixed: Stepping motor controller model D92';

sub SetPPS
my ($this, $speed) = @_;
return $this->read();

sub SetPresentPosition
my ($this, $Pos) = @_;

sub GetPosition
my ($this, $axis) = @_;
return $this->read();

sub SetX
my ($this, $positionX) = @_;

sub MoveRelativeX
my ($this, $Move) = @_;

sub GetAxis
my ($this, $axis) = @_;
return $this->read();

sub QuickStop
my ($this) = @_;

sub SlowStop
my ($this) = @_;

sub SetSpeed
my ($this, $speed) = @_;

sub SetAcceleration
my ($this, $acceleration) = @_;
return $this->read();