1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
package Plugin4;
sub new {
my ( $class, %args ) = @_;
$args{sth} = $args{dbh}->prepare(
"INSERT INTO test.table_9 values(?,?,?)
ON DUPLICATE KEY UPDATE b=b+1, c=c+values(c)
");
return bless(\%args, $class);
}
sub is_archivable {1} # Always yes
sub before_delete {} # Take no action
sub before_insert {
my ( $self, %args ) = @_;
$self->{sth}->execute(@{$args{row}});
}
sub custom_sth {} # no action
sub before_begin {} # Take no action
sub after_finish {} # Take no action
1;
|
