File Coverage

blib/lib/Device/Modbus/RTU/Client.pm
Criterion Covered Total %
statement 22 22 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod 1 1 100.0
total 30 30 100.0


line stmt bran cond sub pod time code
1             package Device::Modbus::RTU::Client;
2              
3 2     2   38275 use parent 'Device::Modbus::Client';
  2         545  
  2         10  
4 2     2   16709 use Device::Modbus::RTU::ADU;
  2         3  
  2         51  
5 2     2   879 use Role::Tiny::With;
  2         8082  
  2         94  
6              
7 2     2   11 use Carp;
  2         2  
  2         112  
8 2     2   11 use strict;
  2         4  
  2         64  
9 2     2   7 use warnings;
  2         4  
  2         141  
10              
11             with 'Device::Modbus::RTU';
12              
13             sub new {
14 4     4 1 1135 my ($class, %args) = @_;
15              
16 4         10 my $self = bless \%args, $class;
17 4         14 $self->open_port;
18 3         9 return $self;
19             }
20              
21             1;
22              
23             __END__