Help for this page

Select Code to Download


  1. or download this
    use Device;
    use System;
    my ( $serverAddress, $port, $reportFile ) = @_;
    my $System = new System($serverAddress, $port);
    my $dut = new Device('DEV',127.0.0.1,5000);
    
  2. or download this
    package Device;
    
    ...
        $ComObj->TapResponse($Response);
    }
    
  3. or download this
    package System;
    
    ...
        bless $self, $class;
        return $self;
    }