File Coverage

blib/lib/Lab/Moose/Instrument/Agilent34410A.pm
Criterion Covered Total %
statement 8 8 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 11 11 100.0


line stmt bran cond sub pod time code
1             package Lab::Moose::Instrument::Agilent34410A;
2             $Lab::Moose::Instrument::Agilent34410A::VERSION = '3.881';
3             #ABSTRACT: Agilent 34410A digital multimeter.
4              
5 1     1   2485 use v5.20;
  1         4  
6              
7              
8 1     1   6 use Moose;
  1         4  
  1         11  
9 1     1   7199 use namespace::autoclean;
  1         3  
  1         11  
10              
11             extends 'Lab::Moose::Instrument::HP34410A';
12              
13             around default_connection_options => sub {
14             my $orig = shift;
15             my $self = shift;
16             my $options = $self->$orig();
17             my $usb_opts = { vid => 0x0957, pid => 0x0607 };
18             $options->{USB} = $usb_opts;
19             $options->{'VISA::USB'} = $usb_opts;
20             return $options;
21             };
22              
23             __PACKAGE__->meta()->make_immutable();
24              
25             1;
26              
27             __END__
28              
29             =pod
30              
31             =encoding UTF-8
32              
33             =head1 NAME
34              
35             Lab::Moose::Instrument::Agilent34410A - Agilent 34410A digital multimeter.
36              
37             =head1 VERSION
38              
39             version 3.881
40              
41             =head1 DESCRIPTION
42              
43             Alias for L<Lab::Moose::Instrument::HP34410A> with adjusted USB vendor/product IDs.
44              
45             =head1 COPYRIGHT AND LICENSE
46              
47             This software is copyright (c) 2023 by the Lab::Measurement team; in detail:
48              
49             Copyright 2017-2018 Simon Reinhardt
50             2020 Andreas K. Huettel
51              
52              
53             This is free software; you can redistribute it and/or modify it under
54             the same terms as the Perl 5 programming language system itself.
55              
56             =cut