File Coverage

blib/lib/Lab/Moose/Connection/IsoBus.pm

Criterion	Covered	Total	%
statement	14	33	42.4
branch			n/a
condition			n/a
subroutine	5	11	45.4
pod	0	6	0.0
total	19	50	38.0

package Lab::Moose::Connection::IsoBus;
$Lab::Moose::Connection::IsoBus::VERSION = '3.900';
#ABSTRACT: Connection back end to the Oxford Instruments IsoBus

use v5.20;

use Moose;
use MooseX::Params::Validate;
use Carp;
use namespace::autoclean;

has base_connection => (
	is => 'ro',
	isa => 'Lab::Moose::Connection'
);

has isobus_address => (
	is => 'ro',
	isa => 'Int'
);

sub BUILD {
    my $self = shift;

}

sub set_termchar {
	my $self = shift;
	my %args = @_;
	my $termchar = delete $args{termchar};

	$self->base_connection->set_termchar(termchar => $termchar, %args);
}

sub enable_read_termchar {
	my $self = shift;
	my %args = @_;

	$self->base_connection->enable_read_termchar(%args);
}


sub Write {
    my $self = shift;
	my %args = @_;
	my $cmd = delete $args{command};
	$cmd = "\@" . $self->isobus_address() . $cmd;
    $self->base_connection->Write(command => $cmd, %args );
}

sub Read {
    my $self = shift;
	my %args = @_;

    return $self->base_connection->Read( %args );
}

sub Clear {
	my $self = shift;
	my %args = @_;

	$self->base_connection->Clear( %args );
}

with 'Lab::Moose::Connection';

__PACKAGE__->meta->make_immutable();

1;

__END__

=pod

=encoding UTF-8

=head1 NAME

Lab::Moose::Connection::IsoBus - Connection back end to the Oxford Instruments IsoBus

=head1 VERSION

version 3.900

=head1 DESCRIPTION

Connection backend for the Oxford Instruments IsoBus, a serial protocol
connecting several instruments via a bus master.

=head1 COPYRIGHT AND LICENSE

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

  Copyright 2021       Andreas K. Huettel, Fabian Weinelt


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

=cut