NAME

App::MonM::Util - Internal utilities

VERSION

Version 1.01

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

    print cyan("Format %s", "text");

Returns colored string

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

getBit

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

Getting specified Bit

node2anode

    my $anode = node2anode({});

Returns array of nodes

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.

HISTORY

See Changes file

AUTHOR

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

COPYRIGHT

Copyright (C) 1998-2019 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/