NAME

NetServer::ProcessTop - Make event loop statistics easily available

SYNOPSIS

require NetServer::ProcessTop;

my $TopServer = NetServer::ProcessTop->new();
warn "NetServer::ProcessTop listening on port ".(7000+($$ % 1000))."\n";

DESCRIPTION

This module implements a server that makes it much easier to debug complicated event loops.

All statistics collected by Event are displayed in a format similar to the popular (and excellent) top program. ProcessTop server listens on port 7000+($$%1000) by default.

SCREENSHOT

pl/3bork  [12836 @ eq1062]                                    12:15:18 [  15s]
21 events (6 zombies); load averages: 0.33, 0.32, 0.32                        
                                                                              
 EID PRI STATE  RAN  TIME  CPU  TYPE DESCRIPTION                            P1
   0   8 sleep  247  0:09 66.7%  sys idle                                     
  24   4 sleep  105  0:04 28.1% idle QSGTable sweep                           
   3   4 sleep   15  0:00  2.4% time server status                            
  22   4 sleep   15  0:00  1.8% time QSGTable                                 
  12   4 cpu      4  0:00  0.8% time NetServer::ProcessTop::Client localhost  
  23   4 sleep   15  0:00  0.1% time QSGTable Detail                          
   2   4 sleep   15  0:00  0.0% time Qt                                       
   7   4 sleep    8  0:00  0.0% time ObjStore::Serve checkpoint               
  10   4 sleep    8  0:00  0.0% time SSL items                                
   9   4 sleep    8  0:00  0.0% time SSL service                              
   6  -1 sleep    5  0:00  0.0% time Event::Stats                             
  21   4 zomb     0  0:00  0.0% idle QSGTable sweep                           
  19   4 zomb     0  0:00  0.0% time QSGTable                                 
  11   4 sleep    0  0:00  0.0%   io NetServer::ProcessTop::Client localhost  
   8   4 sleep    0  0:00  0.0%   io SSL                                      
  13   4 zomb     0  0:00  0.0% time QSGTable                                 

SUPPORT

The best place for questions about this extension is perl-loop@perl.org.

If you wish to subscribe to this mailing list, send email to majordomo@perl.org.

COPYRIGHT

Copyright © 1998 Joshua Nathaniel Pritikin. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.