package Test::Unit;
sub init_unit {
my $unit = shift;
# Zone addr qty method
# ------------------- ---- --- ---------
$unit->get('holding_registers', 2, 1, 'get_addr_2');
}
sub get_addr_2 {
my ($unit, $server, $req, $addr, $qty) = @_;
$server->log(4,"Executed server routine for address 2, 1 register");
return 6;
}
1;