← Back to branch summary

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

« back to all changes in this revision

Viewing changes to t/pt-online-schema-change/samples/plugins/block_create_triggers.pm

  • Committer: Daniel Nichter
  • Date: 2013-03-11 16:51:30 UTC
  • mfrom: (551 2.2)
  • mto: This revision was merged to the branch mainline in revision 552.
  • Revision ID: daniel@percona.com-20130311165130-limzlpx1hj5c8nwz
Merge 2.2 r551.

Show diffs side-by-side

added added

removed removed

Lines of Context:
t/pt-online-schema-change/samples/plugins/block_create_triggers.pm
 
1
package pt_online_schema_change_plugin;
 
2
 
 
3
use strict;
 
4
use warnings FATAL => 'all';
 
5
use English qw(-no_match_vars);
 
6
use constant PTDEBUG => $ENV{PTDEBUG} || 0;
 
7
 
 
8
sub new {
 
9
   my ($class, %args) = @_;
 
10
   my $self = { %args };
 
11
   return bless $self, $class;
 
12
}
 
13
 
 
14
sub init {
 
15
   my ($self, %args) = @_;
 
16
   print "PLUGIN: init()\n";
 
17
   $self->{orig_tbl} = $args{orig_tbl};
 
18
}
 
19
 
 
20
sub before_create_triggers {
 
21
   my ($self, %args) = @_;
 
22
   print "PLUGIN: before_create_triggers()\n";
 
23
 
 
24
   my $dbh      = $self->{aux_cxn}->dbh;
 
25
   my $orig_tbl = $self->{orig_tbl};
 
26
 
 
27
   # Start a trx and get a metadata lock on the table being altered.
 
28
   $dbh->do('SET autocommit=0');
 
29
   $dbh->{AutoCommit} = 0;
 
30
   $dbh->do("START TRANSACTION");
 
31
   $dbh->do("SELECT * FROM " . $orig_tbl->{name});
 
32
 
 
33
   return;
 
34
}
 
35
 
 
36
sub after_create_triggers {
 
37
   my ($self, %args) = @_;
 
38
   print "PLUGIN: after_create_triggers()\n";
 
39
 
 
40
   my $dbh = $self->{aux_cxn}->dbh;
 
41
 
 
42
   # Commit the trx to release the metadata lock.
 
43
   $dbh->commit();
 
44
}
 
45
 
 
46
1;