percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-11 05:29:30 +00:00
Code Issues Packages Projects Releases Wiki Activity

Make Transformers work if called with use

Browse Source
This commit is contained in:
Brian Fraser fraserb@gmail.com
2013-01-16 07:56:04 -03:00
parent d1d1b04f6e
commit 1e8e8a8398
1 changed files with 20 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
lib/Transformers.pm
View File

@@ -31,24 +31,26 @@ use Time::Local qw(timegm timelocal);
use Digest::MD5 qw(md5_hex); use Digest::MD5 qw(md5_hex);
use B qw(); use B qw();
require Exporter; BEGIN {
our @ISA = qw(Exporter); require Exporter;
our %EXPORT_TAGS = (); our @ISA = qw(Exporter);
our @EXPORT = (); our %EXPORT_TAGS = ();
our @EXPORT_OK = qw( our @EXPORT = ();
micro_t our @EXPORT_OK = qw(
percentage_of micro_t
secs_to_time percentage_of
time_to_secs secs_to_time
shorten time_to_secs
ts shorten
parse_timestamp ts
unix_timestamp parse_timestamp
any_unix_timestamp unix_timestamp
make_checksum any_unix_timestamp
crc32 make_checksum
encode_json crc32
); encode_json
);
}
our $mysql_ts = qr/(\d\d)(\d\d)(\d\d) +(\d+):(\d+):(\d+)(\.\d+)?/; our $mysql_ts = qr/(\d\d)(\d\d)(\d\d) +(\d+):(\d+):(\d+)(\.\d+)?/;
our $proper_ts = qr/(\d\d\d\d)-(\d\d)-(\d\d)[T ](\d\d):(\d\d):(\d\d)(\.\d+)?/; our $proper_ts = qr/(\d\d\d\d)-(\d\d)-(\d\d)[T ](\d\d):(\d\d):(\d\d)(\.\d+)?/;