t/lib/SQLADumperSort.pm

   1 BEGIN {
   2   require Data::Dumper;
   3   my $Dump = Data::Dumper->can('Dump');
   4
   5   no warnings 'redefine';
   6
   7   *Data::Dumper::Dump = sub {
   8     local $Data::Dumper::Sortkeys = sub {
   9       my $hash = @_[0];
  10       my @keys = sort {
  11         my $a_minus = substr($a,0,1) eq '-';
  12         my $b_minus = substr($b,0,1) eq '-';
  13
  14         return $a cmp $b if $a_minus || $b_minus;
  15
  16         return -1 if $a eq 'op';
  17         return  1 if $b eq 'op';
  18         return $a cmp $b;
  19       } keys %$hash;
  20
  21       return \@keys;
  22     };
  23     return $Dump->(@_);
  24   };
  25 }
  26
  27 1;