mirror of
https://github.com/percona/percona-toolkit.git
synced 2025-09-10 21:19:59 +00:00
15 lines
248 B
Perl
15 lines
248 B
Perl
package Plugin7;
|
|
|
|
sub new {
|
|
my ( $class, %args ) = @_;
|
|
return bless(\%args, $class);
|
|
}
|
|
|
|
sub statistics {
|
|
my ( $self, $stats, $start ) = @_;
|
|
$self->{src}->{dbh}->do(
|
|
"insert into test.stat_test(a) values($stats->{DELETE})");
|
|
}
|
|
|
|
1;
|