← Back to branch summary

~percona-core/percona-toolkit/release-2.2.8-v2

« back to all changes in this revision

Viewing changes to bin/pt-table-sync

  • Committer: Daniel Nichter
  • Date: 2013-06-19 21:23:55 UTC
  • mfrom: (582.1.5 release-2.2.3)
  • Revision ID: daniel@percona.com-20130619212355-nf6bmx23j3b76afe
Tags: 2.2.3
Merge release-2.2.3.

Show diffs side-by-side

added added

removed removed

Lines of Context:
bin/pt-table-sync
54
54
# ###########################################################################
55
55
{
56
56
package Percona::Toolkit;
57
 
our $VERSION = '2.2.2';
 
57
 
 
58
our $VERSION = '2.2.3';
 
59
 
 
60
use strict;
 
61
use warnings FATAL => 'all';
 
62
use English qw(-no_match_vars);
 
63
use constant PTDEBUG => $ENV{PTDEBUG} || 0;
 
64
 
 
65
use Carp qw(carp cluck);
 
66
use Data::Dumper qw();
 
67
 
 
68
require Exporter;
 
69
our @ISA         = qw(Exporter);
 
70
our @EXPORT_OK   = qw(
 
71
   have_required_args
 
72
   Dumper
 
73
   _d
 
74
);
 
75
 
 
76
sub have_required_args {
 
77
   my ($args, @required_args) = @_;
 
78
   my $have_required_args = 1;
 
79
   foreach my $arg ( @required_args ) {
 
80
      if ( !defined $args->{$arg} ) {
 
81
         $have_required_args = 0;
 
82
         carp "Argument $arg is not defined";
 
83
      }
 
84
   }
 
85
   cluck unless $have_required_args;  # print backtrace
 
86
   return $have_required_args;
 
87
}
 
88
 
 
89
sub Dumper {
 
90
   local $Data::Dumper::Indent    = 1;
 
91
   local $Data::Dumper::Sortkeys  = 1;
 
92
   local $Data::Dumper::Quotekeys = 0;
 
93
   Data::Dumper::Dumper(@_);
 
94
}
 
95
 
 
96
sub _d {
 
97
   my ($package, undef, $line) = caller 0;
 
98
   @_ = map { (my $temp = $_) =~ s/\n/\n# /g; $temp; }
 
99
        map { defined $_ ? $_ : 'undef' }
 
100
        @_;
 
101
   print STDERR "# $package:$line $PID ", join(' ', @_), "\n";
 
102
}
58
103
 
59
104
1;
60
105
}
12625
12670
 
12626
12671
=head1 VERSION
12627
12672
 
12628
 
pt-table-sync 2.2.2
 
12673
pt-table-sync 2.2.3
12629
12674
 
12630
12675
=cut