percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-15 07:55:51 +00:00
Code Issues Packages Projects Releases Wiki Activity

Add headers to Lmo and WebAPI modules, and put the modules in pt-agent.

Browse Source
This commit is contained in:
Daniel Nichter
2012-12-24 18:20:25 -07:00
parent 0083216a6c
commit d035125729
16 changed files with 1779 additions and 93 deletions
Download Patch File Download Diff File Expand all files Collapse all files

35
lib/Lmo.pm
View File

@@ -17,15 +17,26 @@
# ###########################################################################
# Lmo package
# ###########################################################################
{
# 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__;
# Lmo provides a little meta object system like Moose and Moo.
# This code was derived from Mo 0.30.
package Lmo;
our $VERSION = '0.01';
use strict;
use warnings qw( FATAL all );
use Carp ();
use Scalar::Util qw(blessed);
eval {
require Lmo::Meta;
require Lmo::Object;
require Lmo::Types;
};
{
# Gets the glob from a given string.
no strict 'refs';
@@ -43,16 +54,6 @@ our $VERSION = '0.01';
}
}
use strict;
use warnings qw( FATAL all );
use Carp ();
use Scalar::Util qw(looks_like_number blessed);
use Lmo::Meta;
use Lmo::Object;
use Lmo::Types;
my %export_for;
sub import {
# Set warnings and strict for the caller.
@@ -224,8 +225,6 @@ sub has {
}
}
# handles handles
sub _has_handles {
my ($caller, $attribute, $args) = @_;
@@ -348,8 +347,8 @@ BEGIN {
}
}
}
1;
}
# ###########################################################################
# End Lmo package
# ###########################################################################