view release on metacpan or  search on metacpan

lib/DBI/Gofer/Transport/mod_perl.pm  view on Meta::CPAN

449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
my @rr_resp_size = map { length($_->{response}||'') } @$queue;
push @s, sprintf "Response size: min %4d, avg %4d, max %4d (sum %d \@ %dB/sec)\n",
    min(@rr_resp_size), sum(@rr_resp_size)/@rr_resp_size, max(@rr_resp_size),
    sum(@rr_resp_size), sum(@rr_resp_size)/$time_span;
 
my @rr_resp_dur = map { $_->{duration} } @$queue;
push @s, sprintf "Response time: min %.3fs, avg %.3fs, max %.3fs\n",
    min(@rr_resp_dur), sum(@rr_resp_dur)/@rr_resp_dur, max(@rr_resp_dur), sum(@rr_resp_dur);
 
push @s, sprintf "Request rate: %.1f/min (occupancy: %.1f%% with %.3fs busy and %.3fs idle)\n",
        @$queue/($time_span/60),
        $dur_total/($dur_total+$idle_total)*100, $dur_total, $idle_total
    if $queue_name eq 'recent_requests';
 
if ( my @dups = grep { $_ > 1 } values %dup_reqs ) {
    push @s, sprintf "Duplicate requests: %d distinct duplicates, total %d duplicates\n",
        scalar @dups, sum(@dups);
}
 
if ($show_client_hostname_in_status) { # use DNS lookup