percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-11 21:51:21 +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. # Get configuration information.
# ########################################################################## # ##########################################################################
my $o = new OptionParser(); my $o = OptionParser->new();
$o->get_specs(); $o->get_specs();
$o->get_opts(); $o->get_opts();
my $dp = $o->DSNParser(); my $dp = $o->DSNParser();
@@ -5047,18 +5047,18 @@ sub main {
# ########################################################################## # ##########################################################################
# Make common modules. # Make common modules.
# ########################################################################## # ##########################################################################
my $q = new Quoter(); my $q = Quoter->new();
my $qp = new QueryParser(); my $qp = QueryParser->new();
my $qr = new QueryRewriter(QueryParser => $qp); my $qr = QueryRewriter->new(QueryParser => $qp);
my $tp = new TableParser(Quoter => $q); my $tp = TableParser->new(Quoter => $q);
my $vp = new VersionParser(); my $vp = VersionParser->new();
my $parser = new SlowLogParser(); my $parser = SlowLogParser->new();
my $fi = new FileIterator(); my $fi = FileIterator->new();
my $du = new MySQLDump(); my $du = MySQLDump->new();
my $iu = new IndexUsage( my $iu = IndexUsage->new(
QueryRewriter => $qr, QueryRewriter => $qr,
); );
my $exa = new ExplainAnalyzer( my $exa = ExplainAnalyzer->new(
QueryRewriter => $qr, QueryRewriter => $qr,
QueryParser => $qp QueryParser => $qp
); );
@@ -5139,8 +5139,8 @@ sub main {
# ######################################################################## # ########################################################################
my $version = $vp->parse($dbh->selectrow_array('SELECT VERSION()')); my $version = $vp->parse($dbh->selectrow_array('SELECT VERSION()'));
my $schema = new Schema(); my $schema = Schema->new();
my $schema_itr = new SchemaIterator( my $schema_itr = SchemaIterator->new(
dbh => $dbh, dbh => $dbh,
OptionParser => $o, OptionParser => $o,
Quoter => $q, Quoter => $q,
@@ -5203,7 +5203,7 @@ sub main {
# ##################################################################### # #####################################################################
my $pr; my $pr;
if ( $o->get('progress') && $filename && -e $filename ) { if ( $o->get('progress') && $filename && -e $filename ) {
$pr = new Progress( $pr = Progress->new(
jobsize => -s $filename, jobsize => -s $filename,
spec => $o->get('progress'), spec => $o->get('progress'),
name => $filename, name => $filename,
@@ -5530,7 +5530,7 @@ sub create_views {
my ($dbh) = @args{@required_args}; my ($dbh) = @args{@required_args};
MKDEBUG && _d("Creating views"); MKDEBUG && _d("Creating views");
my $pod_parser = new PodParser(); my $pod_parser = PodParser->new();
$pod_parser->parse_from_file(__FILE__); $pod_parser->parse_from_file(__FILE__);
my $magic = $pod_parser->get_magic('OPTIONS'); my $magic = $pod_parser->get_magic('OPTIONS');