| Event-Stats documentation | Contained in the Event-Stats distribution. |
Event::Stats - Event loop statistics
XXX
Instrument the Event module in order to gather statistics.
Determines whether statistics are collected. Arithmetically adds $yes to the usage count. Stats are enabled while the usage count is positive.
Statistics are not collected in one second intervals. This function converts a *desired* time interval into an *available* time interval. Units are in seconds.
Due to long-running callbacks, measurement intervals may take longer than expected. This function returns the actual clock-time for a given measurement interval.
Return statistics for the last $sec seconds of operation. Three numbers are returned: the number of times the callback has been invoked, the number of uncaught exceptions and the number of seconds spent within the callback. Also see NetServer::ProcessTop.
Useful for debugging. XXX
Please direct your insights and complaints to the perl-loop@perl.org mailing list!
Copyright © 1999, 2000 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.
| Event-Stats documentation | Contained in the Event-Stats distribution. |
use strict; package Event::Stats; use Carp; use Event 0.53; use base ('Exporter', 'DynaLoader'); use vars qw($VERSION @EXPORT_OK); $VERSION = '0.9'; @EXPORT_OK = qw(round_seconds idle_time total_time); __PACKAGE__->bootstrap($VERSION); sub enforce_max_callback_time { # a bit kludged if (@_) { my ($yes) = @_; $SIG{ALRM} = sub { Carp::confess("Event timed out") } if $yes; _enforce_max_callback_time($yes); } else { _enforcing_max_callback_time() } } 1; __END__