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 3     3   40620 use parent 'Device::Modbus::Client';
  3         679  
  3         12  
4 3     3   19556 use Device::Modbus::RTU::ADU;
  3         6  
  3         59  
5 3     3   1056 use Role::Tiny::With;
  3         9569  
  3         114  
6              
7 3     3   13 use Carp;
  3         4  
  3         113  
8 3     3   10 use strict;
  3         4  
  3         55  
9 3     3   9 use warnings;
  3         3  
  3         184  
10              
11             with 'Device::Modbus::RTU';
12              
13             sub new {
14 4     4 1 1149 my ($class, %args) = @_;
15              
16 4         9 my $self = bless \%args, $class;
17 4         11 $self->open_port;
18 3         4 return $self;
19             }
20              
21             1;
22              
23             __END__