view release on metacpan or  search on metacpan

lib/Lab/Moose/Instrument/AttoCube_AMC.pm  view on Meta::CPAN

sub getControlTargetRanges {
	my $self = shift;

	my $response = $self->request(method => 'com.attocube.amc.rotcomp.getControlTargetRanges');

	$self->handle_error($response);

	return $response;
}


sub getEnabled {
	my $self = shift;

	my $response = $self->request(method => 'com.attocube.amc.rotcomp.getEnabled');

	$self->handle_error($response);

	return $response;
}


sub getLUT {
	my $self = shift;

	my $response = $self->request(method => 'com.attocube.amc.rotcomp.getLUT');

	$self->handle_error($response);

	return $response;
}


sub setEnabled {
	my ($self, $enabled, %args) = validated_list(
		enabled	=> {isa => 'Bool', optional => 0,},
	);

	my $response = $self->request(method => 'com.attocube.amc.rotcomp.setEnabled', params => [$enabled]);

	$self->handle_error($response);

	return $response;
}


sub setLUT {
	my ($self, $lut_string, %args) = validated_list(
		lut_string	=> {optional => 0,},
	);

	my $response = $self->request(method => 'com.attocube.amc.rotcomp.setLUT', params => [$lut_string]);

	$self->handle_error($response);

	return $response;
}


sub updateOffsets {
	my ($self, $offset_axis0, $offset_axis1, $offset_axis2, %args) = validated_list(
		offset_axis0	=> {optional => 0,},
		offset_axis1	=> {optional => 0,},
		offset_axis2	=> {optional => 0,},
	);

	my $response = $self->request(method => 'com.attocube.amc.rotcomp.updateOffsets', params => [$offset_axis0, $offset_axis1, $offset_axis2]);

	$self->handle_error($response);

	return $response;
}


sub rtin_apply {
	my $self = shift;

	my $response = $self->request(method => 'com.attocube.amc.rtin.apply');

	$self->handle_error($response);

	return $response;
}


sub rtin_discard {
	my $self = shift;

	my $response = $self->request(method => 'com.attocube.amc.rtin.discard');

	$self->handle_error($response);

	return $response;
}


sub getControlAQuadBInResolution {
	my ($self, $axis, %args) = validated_list(
		axis	=> {isa => enum([ qw(0 1 2 ) ]), optional => 0,},
	);

	my $response = $self->request(method => 'com.attocube.amc.rtin.getControlAQuadBInResolution', params => [$axis]);

	$self->handle_error($response);

	return $response;
}


sub getControlMoveGPIO {
	my ($self, $axis, %args) = validated_list(
		axis	=> {isa => enum([ qw(0 1 2 ) ]), optional => 0,},
	);

	my $response = $self->request(method => 'com.attocube.amc.rtin.getControlMoveGPIO', params => [$axis]);

	$self->handle_error($response);

	return $response;
}

lib/Lab/Moose/Instrument/AttoCube_AMC.pm  view on Meta::CPAN

	$self->handle_error($response);

	return $response;
}


sub rebootSystem {
	my $self = shift;

	my $response = $self->request(method => 'com.attocube.system.rebootSystem');

	$self->handle_error($response);

	return $response;
}


sub setDeviceName {
	my ($self, $name, %args) = validated_list(
		name	=> {optional => 0,},
	);

	my $response = $self->request(method => 'com.attocube.system.setDeviceName', params => [$name]);

	$self->handle_error($response);

	return $response;
}


sub setTime {
	my ($self, $day, $month, $year, $hour, $minute, $second, %args) = validated_list(
		day	=> {optional => 0,},
		month	=> {optional => 0,},
		year	=> {optional => 0,},
		hour	=> {optional => 0,},
		minute	=> {optional => 0,},
		second	=> {optional => 0,},
	);

	my $response = $self->request(method => 'com.attocube.system.setTime', params => [$day, $month, $year, $hour, $minute, $second]);

	$self->handle_error($response);

	return $response;
}


sub softReset {
	my $self = shift;

	my $response = $self->request(method => 'com.attocube.system.softReset');

	$self->handle_error($response);

	return $response;
}


sub updateTimeFromInternet {
	my $self = shift;

	my $response = $self->request(method => 'com.attocube.system.updateTimeFromInternet');

	$self->handle_error($response);

	return $response;
}


sub getLicenseUpdateProgress {
	my $self = shift;

	my $response = $self->request(method => 'com.attocube.system.update.getLicenseUpdateProgress');

	$self->handle_error($response);

	return $response;
}


sub getSwUpdateProgress {
	my $self = shift;

	my $response = $self->request(method => 'com.attocube.system.update.getSwUpdateProgress');

	$self->handle_error($response);

	return $response;
}


sub licenseUpdateBase64 {
	my $self = shift;

	my $response = $self->request(method => 'com.attocube.system.update.licenseUpdateBase64');

	$self->handle_error($response);

	return $response;
}


sub softwareUpdateBase64 {
	my $self = shift;

	my $response = $self->request(method => 'com.attocube.system.update.softwareUpdateBase64');

	$self->handle_error($response);

	return $response;
}


sub uploadLicenseBase64 {
	my ($self, $offset, $b64Data, %args) = validated_list(
		offset	=> {optional => 0,},
		b64Data	=> {optional => 0,},
	);