Help for this page

Select Code to Download


  1. or download this
             on_connect => sub {
            # Begin interacting with the server.
            my ( $kernel, $client_socket ) = @_[KERNEL, ARG0 ];
...
            $_[HEAP]{client}->put( "login monitor monitor", "log on", 
+);
            $kernel->yield( 'keepalive', $_[HEAP]{client} );
        },
  2. or download this
    $kernel->yield( 'keepalive', $_[HEAP]{client} );
  3. or download this
    delete $_[HEAP]{client}{$wheel_id};