← Back to branch summary

~percona-toolkit-dev/percona-toolkit/fix-821703-processlist-null-state

« back to all changes in this revision

Viewing changes to bin/pt-query-digest

Merge pqd-group-by-bug-924950.

Show diffs side-by-side

added added

removed removed

Lines of Context:
bin/pt-query-digest
5453
5453
sub metrics {
5454
5454
   my ( $self, %args ) = @_;
5455
5455
   foreach my $arg ( qw(attrib where) ) {
5456
 
      die "I need a $arg argument" unless $args{$arg};
 
5456
      die "I need a $arg argument" unless defined $args{$arg};
5457
5457
   }
5458
5458
   my $attrib = $args{attrib};
5459
5459
   my $where   = $args{where};
6365
6365
sub header {
6366
6366
   my ( $self, %args ) = @_;
6367
6367
   foreach my $arg ( qw(ea orderby) ) {
6368
 
      die "I need a $arg argument" unless $args{$arg};
 
6368
      die "I need a $arg argument" unless defined $args{$arg};
6369
6369
   }
6370
6370
   my $ea      = $args{ea};
6371
6371
   my $orderby = $args{orderby};
6594
6594
sub event_report {
6595
6595
   my ( $self, %args ) = @_;
6596
6596
   foreach my $arg ( qw(ea item orderby) ) {
6597
 
      die "I need a $arg argument" unless $args{$arg};
 
6597
      die "I need a $arg argument" unless defined $args{$arg};
6598
6598
   }
6599
6599
   my $ea      = $args{ea};
6600
6600
   my $item    = $args{item};
6765
6765
sub chart_distro {
6766
6766
   my ( $self, %args ) = @_;
6767
6767
   foreach my $arg ( qw(ea item attrib) ) {
6768
 
      die "I need a $arg argument" unless $args{$arg};
 
6768
      die "I need a $arg argument" unless defined $args{$arg};
6769
6769
   }
6770
6770
   my $ea     = $args{ea};
6771
6771
   my $item   = $args{item};
6814
6814
sub distro_sparkline {
6815
6815
   my ( $self, %args ) = @_;
6816
6816
   foreach my $arg ( qw(ea item attrib) ) {
6817
 
      die "I need a $arg argument" unless $args{$arg};
 
6817
      die "I need a $arg argument" unless defined $args{$arg};
6818
6818
   }
6819
6819
   my $ea     = $args{ea};
6820
6820
   my $item   = $args{item};