percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-10-19 17:04:00 +00:00
Code Issues Packages Projects Releases Wiki Activity

Enclose all packages blocks and add Package devel docu.

Browse Source
This commit is contained in:
Daniel Nichter
2011-06-28 17:50:02 -06:00
parent b4b6376be1
commit 82931ec399
35 changed files with 142 additions and 106 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
lib/ProtocolParser.pm
View File

@@ -17,11 +17,16 @@
# ###########################################################################
# ProtocolParser package $Revision: 7522 $
# ###########################################################################
# Package: ProtocolParser
# ProtocolParser is a parent class for protocol-specific parsers.
{
package ProtocolParser;
use strict;
use warnings FATAL => 'all';
use English qw(-no_match_vars);
use constant MKDEBUG => $ENV{MKDEBUG} || 0;
eval {
require IO::Uncompress::Inflate;
@@ -33,8 +38,6 @@ $Data::Dumper::Indent = 1;
$Data::Dumper::Sortkeys = 1;
$Data::Dumper::Quotekeys = 0;
use constant MKDEBUG => $ENV{MKDEBUG} || 0;
sub new {
my ( $class, %args ) = @_;
@@ -335,7 +338,7 @@ sub _d {
}
1;
}
# ###########################################################################
# End ProtocolParser package
# ###########################################################################