NAME

Lab::Moose::Instrument - Base class for instrument drivers

VERSION

version 3.920

SYNOPSIS

A complete device driver based on Lab::Moose::Instrument:

            

              
              
package Lab::Moose::Instrument::FooBar;
use Moose;
use Lab::Moose::Instrument qw/validated_getter validated_setter/;
use namespace::autoclean;
extends 'Lab::Moose::Instrument';
sub get_foo {
    my ($self, %args) = validated_getter(\@_);
    return $self->query(command => "Foo?", %args);
}
sub set_foo {
    my ($self, $value, %args) = validated_setter(\@_);
    return $self->write(command => "Foo $value", %args);
}
__PACKAGE__->meta->make_immutable();
            
          

DESCRIPTION

The Lab::Moose::Instrument module is a thin wrapper around a connection object. All other Lab::Moose::Instrument::* drivers inherit from this module.

METHODS

new

The constructor requires a connection object, which provides Read, Write, Query and Clear methods. You can provide any object, which supports these methods.

write

            

              
              
$instrument->write(command => '*RST', timeout => 10);
            
          

Call the connection's Write method. The timeout parameter is optional.

binary_read

            

              
              
my $data = $instrument->binary_read(timeout => 10);
            
          

Call the connection's Read method. The timeout parameter is optional.

read

Like binary_read, but trim trailing whitespace and newline from the result.

More precisely, this removes the PROGRAM MESSAGE TERMINATOR (IEEE 488.2 section 7.5).

binary_query

            

              
              
my $data = $instrument->binary_query(command => '*IDN?', timeout => 10)
            
          

Call the connection's Query method. The timeout parameter is optional.

query

Like binary_query, but trim trailing whitespace and newline from the result.

More precisely, this removes the PROGRAM MESSAGE TERMINATOR (IEEE 488.2 section 7.5).

clear

            

              
              
$instrument->clear();
            
          

Call the connection's Clear method.

Functions

The following functions standardise and simplify the use of MooseX::Params::Validate in instrument drivers. They are only exported on request.

timeout_param

Return mandatory validation parameter for timeout.

read_length_param

Return mandatory validation parameter for read_length.

channel_param

Return optional validation parameter for channel. A given argument has to be an 'Int'. The default value is the empty string ''.

precision_param

Return optional validation parameter for floating point precision. The parameter has to be either 'single' (default) or 'double'.

getter_params

Return list of validation parameters which shell be used in all query operations, eg. timeout, ....

setter_params

Return list of validation parameters which shell be used in all write operations, eg. timeout, ....

validated_getter

            

              
              
my ($self, %args) = validated_getter(\@_, %additional_parameter_spec);
            
          

Call validated_hash with the getter_params.

validated_setter

            

              
              
my ($self, $value, %args) = validated_setter(\@_, %additional_parameter_spec);
            
          

Call validated_hash with the setter_params and a mandatory 'value' argument, which must be of 'Str' type.

validated_no_param_setter

            

              
              
my ($self, %args) = validated_no_param_setter(\@_, %additional_parameter_spec);
            
          

Like validated_setter without the 'value' argument.

validated_channel_getter

            

              
              
my ($self, $channel, %args) = validated_channel_getter(\@_);
            
          

Like validated_getter with an additional channel_param argument. If the no channel argument is given, try to call $self-cached_instrument_nselect>. If this method is not available, return the empty string for the channel.

validated_channel_setter

            

              
              
my ($self, $channel, $value, %args) = validated_channel_setter(\@_);
            
          

Analog to validated_channel_getter.

COPYRIGHT AND LICENSE

This software is copyright (c) 2024 by the Lab::Measurement team; in detail:

            

              
              
Copyright 2016       Simon Reinhardt
          2017       Andreas K. Huettel, Simon Reinhardt
          2018       Simon Reinhardt
          2020       Sam Bingner
          2021       Fabian Weinelt
          2022-2023  Mia Schambeck
            
          

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.

cpanm Lab::Measurement

perl -MCPAN -e shell
install Lab::Measurement