view release on metacpan or  search on metacpan

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

            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