File Coverage

blib/lib/Lab/Moose/Instrument/SCPI/Sense/Power.pm
Criterion Covered Total %
statement 20 25 80.0
branch n/a
condition n/a
subroutine 7 9 77.7
pod 2 2 100.0
total 29 36 80.5


line stmt bran cond sub pod time code
1             package Lab::Moose::Instrument::SCPI::Sense::Power;
2             #ABSTRACT: Role for the SCPI SENSe:POWer subsystem
3             $Lab::Moose::Instrument::SCPI::Sense::Power::VERSION = '3.881';
4 1     1   9803 use v5.20;
  1         5  
5              
6 1     1   6 use Moose::Role;
  1         3  
  1         7  
7 1     1   5553 use Lab::Moose::Instrument::Cache;
  1         3  
  1         7  
8             use Lab::Moose::Instrument
9 1     1   684 qw/validated_getter validated_setter/;
  1         5  
  1         58  
10 1     1   7 use MooseX::Params::Validate;
  1         4  
  1         9  
11 1     1   585 use Carp;
  1         3  
  1         57  
12              
13 1     1   9 use namespace::autoclean;
  1         2  
  1         9  
14              
15              
16             cache sense_power_rf_attenuation => ( getter => 'sense_power_rf_attenuation_query' );
17              
18             sub sense_power_rf_attenuation_query {
19 0     0 1   my ( $self, %args ) = validated_getter( \@_ );
20              
21 0           return $self->cached_sense_power_rf_attenuation(
22             $self->query( command => "SENS:POW:RF:ATT?", %args ) );
23             }
24              
25             sub sense_power_rf_attenuation {
26 0     0 1   my ( $self, $value, %args ) = validated_setter( \@_ );
27              
28 0           $self->write( command => "SENS:POW:RF:ATT $value", %args );
29 0           $self->cached_sense_power_rf_attenuation($value);
30             }
31              
32             1;
33              
34             __END__
35              
36             =pod
37              
38             =encoding UTF-8
39              
40             =head1 NAME
41              
42             Lab::Moose::Instrument::SCPI::Sense::Power - Role for the SCPI SENSe:POWer subsystem
43              
44             =head1 VERSION
45              
46             version 3.881
47              
48             =head1 METHODS
49              
50             =head2 sense_power_rf_attenuation_query
51              
52             =head2 sense_power_rf_attenuation
53              
54             Query/Set the input attenuation.
55              
56             =head1 COPYRIGHT AND LICENSE
57              
58             This software is copyright (c) 2023 by the Lab::Measurement team; in detail:
59              
60             Copyright 2018 Eugeniy E. Mikhailov
61             2020 Andreas K. Huettel
62              
63              
64             This is free software; you can redistribute it and/or modify it under
65             the same terms as the Perl 5 programming language system itself.
66              
67             =cut