Help for this page

Select Code to Download


  1. or download this
    my $socket_io_handlers = $mech->repl->expr('variable_that_handles_the_
    +callbacks');
    
    $socket_io_handlers->{on_chat} = sub {
        print "socket.io: Got " . Dumper \@_;
    };
    
  2. or download this
    my $create_tee = $mech->repl->declare(<<'JS');
        function (next_handler, perl_handler) {
    ...
    my $old_handler = $socket_io_handler->{ on_chat };
    my $new_handler = $create_tee->( $old_handler, sub { print "socket.io:
    + " . Dumper \@_ });
    $socket_io_handler->{ on_chat } = $new_handler;