percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-16 08:17:20 +00:00
Code Issues Packages Projects Releases Wiki Activity

Use Percona::Toolkit::_d() and Dumper(). Set Lmo::VERSION=0.01.

Browse Source
This commit is contained in:
Daniel Nichter
2012-12-24 14:48:02 -07:00
parent 861cc8fd96
commit 0083216a6c
3 changed files with 5 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
lib/Lmo.pm
View File

@@ -1,4 +1,4 @@
# This program is copyright 2007-2011 Baron Schwartz, 2012 Percona Inc.
# This program is copyright 2012-2013 Percona Inc.
# Feedback and improvements are welcome.
#
# THIS PROGRAM IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
@@ -19,10 +19,12 @@
# ###########################################################################
# Package: Lmo
# Lmo provides a miniature object system in the style of Moose and Moo.
# Forked from 0.30 of Mo.
BEGIN {
$INC{"Lmo.pm"} = __FILE__;
package Lmo;
our $VERSION = '0.30_Percona'; # Forked from 0.30 of Mo.
our $VERSION = '0.01';
{
# Gets the glob from a given string.
@@ -312,16 +314,6 @@ sub unimport {
delete $stash->{$_} for @{$export_for{$caller}};
}
sub Dumper {
require Data::Dumper;
local $Data::Dumper::Indent = 0;
local $Data::Dumper::Sortkeys = 0;
local $Data::Dumper::Quotekeys = 0;
local $Data::Dumper::Terse = 1;
Data::Dumper::Dumper(@_)
}
BEGIN {
# mro is the method resolution order. The module itself is core in
# recent Perls; In older Perls it's available from MRO::Compat from