Add forked Maatkit tools in bin/ and their tests in t/.

This commit is contained in:
Daniel Nichter
2011-06-24 16:02:05 -06:00
parent 6c501128e6
commit b4b6376be1
679 changed files with 177876 additions and 3 deletions

View File

@@ -0,0 +1,22 @@
package Plugin3;
sub new {
my ( $class, %args ) = @_;
$args{sth} = $args{dbh}->prepare(
"INSERT INTO test.table_2 values(?,?,?,?)");
return bless(\%args, $class);
}
sub is_archivable {1} # Always yes
sub before_delete {
my ( $self, %args ) = @_;
$self->{sth}->execute(@{$args{row}});
}
sub before_insert {} # Take no action
sub before_begin {} # Take no action
sub after_finish {} # Take no action
1;