File Coverage

blib/lib/Device/WebIO/Device/DigitalInput.pm
Criterion Covered Total %
statement 13 13 100.0
branch n/a
condition 2 2 100.0
subroutine 3 3 100.0
pod 1 1 100.0
total 19 19 100.0


line stmt bran cond sub pod time code
1             # Copyright (c) 2014 Timm Murray
2             # All rights reserved.
3             #
4             # Redistribution and use in source and binary forms, with or without
5             # modification, are permitted provided that the following conditions are met:
6             #
7             # * Redistributions of source code must retain the above copyright notice,
8             # this list of conditions and the following disclaimer.
9             # * Redistributions in binary form must reproduce the above copyright
10             # notice, this list of conditions and the following disclaimer in the
11             # documentation and/or other materials provided with the distribution.
12             #
13             # THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
14             # AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
15             # IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
16             # ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE
17             # LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
18             # CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
19             # SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
20             # INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
21             # CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
22             # ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
23             # POSSIBILITY OF SUCH DAMAGE.
24             package Device::WebIO::Device::DigitalInput;
25             $Device::WebIO::Device::DigitalInput::VERSION = '0.009';
26 5     5   41047 use v5.12;
  5         18  
  5         222  
27 5     5   33 use Moo::Role;
  5         11  
  5         36  
28              
29             with 'Device::WebIO::Device';
30              
31             requires 'input_pin_count';
32             requires 'input_pin';
33             requires 'set_as_input';
34             requires 'is_set_input';
35              
36             # There may be more efficient ways to do this on your platform. Override
37             # this if there are.
38             sub input_port
39             {
40 2     2 1 4 my ($self) = @_;
41 2         3 my $value = 0;
42              
43 2         9 for (0 .. ($self->input_pin_count - 1)) {
44 18         31 my $pin_value = $self->input_pin( $_ );
45 18   100     59 $pin_value //= 0;
46 18         18 $value |= ($pin_value << $_);
47             }
48              
49 2         8 return $value;
50             }
51              
52              
53             1;
54             __END__