use Event::SlidingWindow ;

  my $esw = new Event::SlidingWindow(30) ;
  $esw->record_event() ;
  my $cnt = $esw->count_events() ;

Event::SlidingWindow allows you to create a time window of a fixed length and keeps track of how many events have occured within that window as it advances in time. It was created for use in daemons in order to detect denial of service attacks.

Patrick LeBoutillier, <patl@cpan.org>

Copyright 2004-2005 by Patrick LeBoutillier

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.