← Back to branch summary

~percona-toolkit-dev/percona-toolkit/release-2.2.2

« back to all changes in this revision

Viewing changes to bin/pt-slave-delay

  • Committer: Brian Fraser
  • Date: 2013-04-19 23:26:48 UTC
  • Revision ID: brian.fraser@percona.com-20130419232648-mjnd4rt9k4xldmjc
Build percona-toolkit-2.2.2

Show diffs side-by-side

added added

removed removed

Lines of Context:
bin/pt-slave-delay
39
39
# ###########################################################################
40
40
{
41
41
package Percona::Toolkit;
42
 
our $VERSION = '2.2.1';
 
42
our $VERSION = '2.2.2';
43
43
 
44
44
1;
45
45
}
1122
1122
# ###########################################################################
1123
1123
{
1124
1124
package Lmo::Utils;
 
1125
 
1125
1126
use strict;
1126
1127
use warnings qw( FATAL all );
1127
1128
require Exporter;
1129
1130
 
1130
1131
BEGIN {
1131
1132
   @ISA = qw(Exporter);
1132
 
   @EXPORT = @EXPORT_OK = qw(_install_coderef _unimport_coderefs _glob_for _stash_for);
 
1133
   @EXPORT = @EXPORT_OK = qw(
 
1134
      _install_coderef
 
1135
      _unimport_coderefs
 
1136
      _glob_for
 
1137
      _stash_for
 
1138
   );
1133
1139
}
1134
1140
 
1135
1141
{
1313
1319
   return Lmo::Meta->new(class => $class);
1314
1320
}
1315
1321
 
1316
 
 
1317
1322
1;
1318
1323
}
1319
1324
# ###########################################################################
2750
2755
use English qw(-no_match_vars);
2751
2756
use constant PTDEBUG => $ENV{PTDEBUG} || 0;
2752
2757
 
 
2758
use Time::HiRes qw(sleep);
 
2759
 
2753
2760
sub new {
2754
2761
   my ( $class, %args ) = @_;
2755
2762
   my $self = {
4824
4831
 
4825
4832
=head1 VERSION
4826
4833
 
4827
 
pt-slave-delay 2.2.1
 
4834
pt-slave-delay 2.2.2
4828
4835
 
4829
4836
=cut