mirror of
https://github.com/percona/percona-toolkit.git
synced 2025-10-18 16:40:23 +00:00
Enclose all packages blocks and add Package devel docu.
This commit is contained in:
@@ -18,21 +18,21 @@
|
||||
# QueryReview package $Revision: 7342 $
|
||||
# ###########################################################################
|
||||
|
||||
package QueryReview;
|
||||
|
||||
# Package: QueryReview
|
||||
# QueryReview is an API to a query review table.
|
||||
# This module is an interface to a "query review table" in which certain
|
||||
# historical information about classes of queries is stored. See the docs on
|
||||
# mk-query-digest for context.
|
||||
{
|
||||
package QueryReview;
|
||||
|
||||
use strict;
|
||||
use warnings FATAL => 'all';
|
||||
use English qw(-no_match_vars);
|
||||
Transformers->import(qw(make_checksum parse_timestamp));
|
||||
|
||||
use Data::Dumper;
|
||||
|
||||
use constant MKDEBUG => $ENV{MKDEBUG} || 0;
|
||||
|
||||
Transformers->import(qw(make_checksum parse_timestamp));
|
||||
|
||||
# These columns are the minimal set of columns for every review table. TODO:
|
||||
# maybe it's possible to specify this in the tool's POD and pass it in so it's
|
||||
# not hardcoded here and liable to get out of sync.
|
||||
@@ -222,6 +222,7 @@ sub _d {
|
||||
}
|
||||
|
||||
1;
|
||||
}
|
||||
# ###########################################################################
|
||||
# End QueryReview package
|
||||
# ###########################################################################
|
||||
|
Reference in New Issue
Block a user