percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-12 06:00:14 +00:00
Code Issues Packages Projects Releases Wiki Activity

Partly working and tested pt-agent. Fix Percona/WebAPI/Client.pm. Add Percona/WebAPI/Util.pm, Percona/Test.pm, and /Test/Mock/UserAgent.pm.

Browse Source
This commit is contained in:
Daniel Nichter
2012-12-25 19:40:42 -07:00
parent 9241c27b7c
commit 5051abc7ec
8 changed files with 1167 additions and 133 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
lib/Percona/Toolkit.pm
View File

@@ -17,7 +17,6 @@
# ###########################################################################
# Percona::Toolkit package
# ###########################################################################
{
package Percona::Toolkit;
our $VERSION = '3.0.0';
@@ -29,12 +28,10 @@ use constant PTDEBUG => $ENV{PTDEBUG} || 0;
use Carp qw(carp cluck);
use Data::Dumper qw();
$Data::Dumper::Indent = 1;
$Data::Dumper::Sortkeys = 1;
$Data::Dumper::Quotekeys = 0;
use Exporter 'import';
our @EXPORT = qw(
require Exporter;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(
have_required_args
Dumper
_d
@@ -54,6 +51,9 @@ sub have_required_args {
}
sub Dumper {
local $Data::Dumper::Indent = 1;
local $Data::Dumper::Sortkeys = 1;
local $Data::Dumper::Quotekeys = 0;
Data::Dumper::Dumper(@_);
}
@@ -66,7 +66,6 @@ sub _d {
}
1;
}
# ###########################################################################
# End Percona::Toolkit package
# ###########################################################################