Select Code to Download

# instances (Device|Win32)::SerialPort object and initializes communic
+ations
sub connect {
...
    $me-> log -> write('info', 'Ok connected' );
    $me-> {'CONNECTED'} = 1;
}

sub is_active {
...
...
    $self->log->write('info', 'modem reset result = '.$lOk);
    return $lOk;
}