Add Query_time histogram to json output.

This commit is contained in:
Daniel Nichter
2013-08-16 18:21:57 -07:00
parent 4fcb52f678
commit c3ff530037
7 changed files with 460 additions and 0 deletions

View File

@@ -8023,6 +8023,17 @@ override query_report => sub {
}
}
my $vals = $stats->{Query_time}->{all};
if ( defined $vals && scalar %$vals ) {
my @buck_tens = $ea->buckets_of(10);
my @distro = map { 0 } (0 .. 7);
my @buckets = map { 0 } (0..999);
map { $buckets[$_] = $vals->{$_} } keys %$vals;
$vals = \@buckets; # repoint vals from given hashref to our array
map { $distro[$buck_tens[$_]] += $vals->[$_] } (1 .. @$vals - 1);
$class->{histograms}->{Query_time} = \@distro;
} # histogram
$class->{metrics} = \%metrics;
if ( @tables ) {
$class->{tables} = \@tables;