File Coverage

blib/lib/Lab/Moose/Instrument/Keysight34470A.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 15 15 100.0


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