percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2026-05-16 01:07:12 +08:00
Code Issues Packages Projects Releases Wiki Activity

Change the Report modules to use Lmo

Browse Source
This commit is contained in:
Brian Fraser fraserb@gmail.com
2013-02-01 14:06:13 -03:00
parent d816c6497e
commit 809164becd
18 changed files with 476 additions and 238 deletions
Download Patch File Download Diff File Expand all files Collapse all files
lib/JSONReportFormatter.pm
+2 -1
View File
@@ -1,6 +1,6 @@
{
package JSONReportFormatter;
use Mo;
use Lmo;
use List::Util qw(sum);
use Transformers qw(make_checksum parse_timestamp);
@@ -120,5 +120,6 @@ override query_report => sub {
return $json . "\n";
};
no Lmo;
1;
}
lib/Percona/XtraDB/Cluster.pm
+1 -1
View File
@@ -27,7 +27,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars);
use constant PTDEBUG => $ENV{PTDEBUG} || 0;
use Mo;
use Lmo;
use Data::Dumper;
sub get_cluster_name {
lib/QueryReportFormatter.pm
+2 -1
View File
@@ -29,7 +29,7 @@
# which is also in mk-query-digest.
package QueryReportFormatter;
use Mo;
use Lmo;
use English qw(-no_match_vars);
use POSIX qw(floor);
@@ -1343,6 +1343,7 @@ sub _d {
print STDERR "# $package:$line $PID ", join(' ', @_), "\n";
}
no Lmo;
1;
}
# ###########################################################################
lib/ReportFormatter.pm
+2 -1
View File
@@ -56,7 +56,7 @@
# calculated widths.
package ReportFormatter;
use Mo;
use Lmo;
use English qw(-no_match_vars);
use constant PTDEBUG => $ENV{PTDEBUG} || 0;
@@ -506,6 +506,7 @@ sub _d {
print STDERR "# $package:$line $PID ", join(' ', @_), "\n";
}
no Lmo;
1;
}
# ###########################################################################