File Coverage

blib/lib/HiPi/Interface/MCP49XX.pm
Criterion Covered Total %
statement 12 15 80.0
branch n/a
condition n/a
subroutine 4 5 80.0
pod 0 1 0.0
total 16 21 76.1


line stmt bran cond sub pod time code
1             #########################################################################################
2             # Package HiPi::Interface::MCP49XX
3             # Description : compatibility
4             # Copyright : Copyright (c) 2013-2017 Mark Dootson
5             # License : This is free software; you can redistribute it and/or modify it under
6             # the same terms as the Perl 5 programming language system itself.
7             #########################################################################################
8            
9             package HiPi::Interface::MCP49XX;
10            
11             #########################################################################################
12            
13 1     1   1124 use strict;
  1         2  
  1         29  
14 1     1   5 use warnings;
  1         3  
  1         30  
15 1     1   5 use parent qw( HiPi::Interface::MCP4DAC );
  1         1  
  1         6  
16 1     1   59 use HiPi qw( :mcp4dac );
  1         2  
  1         303  
17            
18             our $VERSION = '0.59';
19            
20             our @EXPORT = ();
21             our @EXPORT_OK = ();
22             our %EXPORT_TAGS = ( all => \@EXPORT_OK );
23            
24             # legacy compat exports
25             {
26             my @const = qw(
27             MCP4801 MCP4811 MCP4821 MCP4802 MCP4812 MCP4822
28             MCP4901 MCP4911 MCP4921 MCP4902 MCP4912 MCP4922
29             );
30            
31             push( @EXPORT_OK, @const );
32             $EXPORT_TAGS{mcp} = \@const;
33             }
34            
35             sub new {
36 0     0 0   my $class = shift;
37 0           my $self = $class->SUPER::new( @_ );
38 0           return $self;
39             }
40            
41             1;
42            
43             __END__