/ 
App-MonM-1.09
River stage zero No dependents
/ App::MonM::Util

NAME

App::MonM::Util - Internal utilities

VERSION

Version 1.02

SYNOPSIS

use App::MonM::Util qw/
        explain expire_calc
    /;

print explain( $object );

DESCRIPTION

Internal utilities

FUNCTIONS

explain
print explain( $object );

Returns Data::Dumper dump

blue, cyan, green, red, yellow, magenta, gray
print cyan("Format %s", "text");

Returns colored string

nope, skip, wow, yep
my $status = nope("Format %s", "text");

Prints status message and returns status.

For nope returns - 0; for skip, wow, yep - 1

getCheckitByName
my $checkits = getCheckitByName($app->config("checkit"), "foo", "bar");

Returns list of normalized the "checkit" config sections by name

getExpireOffset
print getExpireOffset("+1d"); # 86400
print getExpireOffset("-1d"); # -86400

Returns offset of expires time (in secs).

Original this function is the part of CGI::Util::expire_calc!

This internal routine creates an expires time exactly some number of hours from the current time. It incorporates modifications from Mark Fisher.

format for time can be in any of the forms:

now   -- expire immediately
+180s -- in 180 seconds
+2m   -- in 2 minutes
+12h  -- in 12 hours
+1d   -- in 1 day
+3M   -- in 3 months
+2y   -- in 2 years
-3m   -- 3 minutes ago(!)

If you don't supply one of these forms, we assume you are specifying the date yourself

getTimeOffset
my $off = getTimeOffset("1h2m24s"); # 4344
my $off = getTimeOffset("1h 2m 24s"); # 4344

Returns offset of time (in secs)

getBit
print getBit(123, 3) ? "SET" : "UNSET"; # UNSET

Getting specified Bit

header_field_normalize
print header_field_normalize("content-type"); # Content-Type

Returns normalized header field

merge
my $a = {a => 1, c => 3, d => { i => 2 }, r => {}};
my $b = {b => 2, a => 100, d => { l => 4 }};
my $c = merge($a, $b);
# $c is {a => 100, b => 2, c => 3, d => { i => 2, l => 4 }, r => {}}

Recursively merge two or more hashes, simply

This code was taken from Hash::Merge::Simple (Thanks, Robert Krimen)

node2anode
my $anode = node2anode({});

Returns array of nodes

parsewords
my @b = parsewords("foo,bar baz"); # qw/foo bar baz/

Parses string and split it by words. See "quotewords" in Text::ParseWords

run_cmd
my $hash = run_cmd($command, $timeout, $stdin);

Wrapped "run_forked" in IPC::Cmd function

This function returns hash:

{
    'cmd'     => 'perl -w',
    'code'    => 0, # Exit code (errorlevel)
    'message' => 'OK', # OK/ERROR
    'pgid'    => 176294, # Pid of child process
    'status'  => 1, # 1/0
    'stderr'  => '', # STDERR
    'stdout'  => '', # STDOUT
}
set2attr
my $hash = set2attr({set => ["AttrName Value"]}); # {"AttrName" => "Value"}

Converts attributes from the "set" format to regular hash

setBit
printf("%08b", setBit(123, 3)); # 01111111

Setting specified Bit. Returns new value.

slurp
my $content = slurp($file);

Read all data at once from the file (utf8)

my $content = slurp($file, 1);

Read all data at once from the file (binary)

spurt, spew
my $error = spurt($file, qw/foo bar baz/);

Write all data at once to the file

HISTORY

See Changes file

AUTHOR

Serż Minus (Sergey Lepenkov) https://www.serzik.com <abalama@cpan.org>

COPYRIGHT

Copyright (C) 1998-2022 D&D Corporation. All Rights Reserved

LICENSE

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

See LICENSE file and https://dev.perl.org/licenses/