1package DJabberd::Stats; 2use strict; 3use warnings; 4 5# last 50,000 on_stanza_received latency numbers. (from SAXHandler) 6our $latency_max_size = 50_000; 7our $latency_log_max_size = 10; 8our $latency_index = 0; 9our $latency_log_index = 0; 10our @stanza_process_latency = (); 11our @stanza_process_latency_log = (); 12our $latency_log_threshold = 0.005; 13 14our %counter = (); 15 16 171; 18