percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-11 13:40:07 +00:00
Code Issues Packages Projects Releases Wiki Activity

Removed indirect object syntax from the modulino portion of pt-index-usage

Browse Source
This commit is contained in:
Brian Fraser
2011-12-23 17:40:24 -03:00
parent 512a98cecc
commit 9fc9f63179
1 changed files with 15 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
bin/pt-index-usage
View File

@@ -4965,7 +4965,7 @@ sub main {
# ##########################################################################
# Get configuration information.
# ##########################################################################
my $o = new OptionParser();
my $o = OptionParser->new();
$o->get_specs();
$o->get_opts();
my $dp = $o->DSNParser();
@@ -5047,18 +5047,18 @@ sub main {
# ##########################################################################
# Make common modules.
# ##########################################################################
my $q = new Quoter();
my $qp = new QueryParser();
my $qr = new QueryRewriter(QueryParser => $qp);
my $tp = new TableParser(Quoter => $q);
my $vp = new VersionParser();
my $parser = new SlowLogParser();
my $fi = new FileIterator();
my $du = new MySQLDump();
my $iu = new IndexUsage(
my $q = Quoter->new();
my $qp = QueryParser->new();
my $qr = QueryRewriter->new(QueryParser => $qp);
my $tp = TableParser->new(Quoter => $q);
my $vp = VersionParser->new();
my $parser = SlowLogParser->new();
my $fi = FileIterator->new();
my $du = MySQLDump->new();
my $iu = IndexUsage->new(
QueryRewriter => $qr,
);
my $exa = new ExplainAnalyzer(
my $exa = ExplainAnalyzer->new(
QueryRewriter => $qr,
QueryParser => $qp
);
@@ -5139,8 +5139,8 @@ sub main {
# ########################################################################
my $version = $vp->parse($dbh->selectrow_array('SELECT VERSION()'));
my $schema = new Schema();
my $schema_itr = new SchemaIterator(
my $schema = Schema->new();
my $schema_itr = SchemaIterator->new(
dbh => $dbh,
OptionParser => $o,
Quoter => $q,
@@ -5203,7 +5203,7 @@ sub main {
# #####################################################################
my $pr;
if ( $o->get('progress') && $filename && -e $filename ) {
$pr = new Progress(
$pr = Progress->new(
jobsize => -s $filename,
spec => $o->get('progress'),
name => $filename,
@@ -5530,7 +5530,7 @@ sub create_views {
my ($dbh) = @args{@required_args};
MKDEBUG && _d("Creating views");
my $pod_parser = new PodParser();
my $pod_parser = PodParser->new();
$pod_parser->parse_from_file(__FILE__);
my $magic = $pod_parser->get_magic('OPTIONS');