percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-10 05:00:45 +00:00
Code Issues Packages Projects Releases Wiki Activity

Automatic headers & improvements.

Browse Source
This commit is contained in:
Brian Fraser
2012-01-18 19:01:19 -03:00
parent 5b43ed0d5e
commit ad552756b2
8 changed files with 296 additions and 105 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
lib/DiskstatsGroupByDisk.pm
View File

@@ -34,7 +34,6 @@ sub new {
my ($class, %args) = @_;
my $self = $class->SUPER::new(%args);
$self->{_iterations} = 0;
$self->{_print_header} = 1;
return $self;
}
@@ -65,12 +64,12 @@ sub group_by {
header_callback => sub {
my ($self, @args) = @_;
if ( $self->{_print_header} ) {
if ( $self->force_header() ) {
my $method = $args{header_callback}
|| "print_header";
$self->$method(@args);
}
$self->{_print_header} = undef;
$self->set_force_header(undef);
},
rows_callback => $args{rows_callback},
);
@@ -116,10 +115,10 @@ sub group_by {
sub clear_state {
my ($self, @args) = @_;
my $orig_print_h = $self->{_print_header};
my $orig_print_h = $self->{force_header};
$self->{_iterations} = 0;
$self->SUPER::clear_state(@args);
$self->{_print_header} = $orig_print_h;
$self->{force_header} = $orig_print_h;
}
sub compute_line_ts {