← Back to branch summary

~percona-toolkit-dev/percona-toolkit/fix-1050737-1075638-ptc-division-by-zero-nibble_time

« back to all changes in this revision

Viewing changes to lib/TableParser.pm

Merge fix-1009510-1039569-ptc-check-table-on-replicas

Show diffs side-by-side

added added

removed removed

Lines of Context:
lib/TableParser.pm
38
38
$Data::Dumper::Sortkeys  = 1;
39
39
$Data::Dumper::Quotekeys = 0;
40
40
 
 
41
local $EVAL_ERROR;
 
42
eval {
 
43
   require Quoter;
 
44
};
 
45
 
41
46
sub new {
42
47
   my ( $class, %args ) = @_;
43
 
   my @required_args = qw(Quoter);
44
 
   foreach my $arg ( @required_args ) {
45
 
      die "I need a $arg argument" unless $args{$arg};
46
 
   }
47
48
   my $self = { %args };
 
49
   $self->{Quoter} ||= Quoter->new();
48
50
   return bless $self, $class;
49
51
}
50
52
 
 
53
sub Quoter { shift->{Quoter} }
 
54
 
51
55
sub get_create_table {
52
56
   my ( $self, $dbh, $db, $tbl ) = @_;
53
57
   die "I need a dbh parameter" unless $dbh;