File Coverage

blib/lib/App/MonM/Const.pm

Criterion	Covered	Total	%
statement	21	31	67.7
branch	1	6	16.6
condition	0	5	0.0
subroutine	7	11	63.6
pod			n/a
total	29	53	54.7

package App::MonM::Const; # $Id: Const.pm 125 2022-09-06 17:24:56Z abalama $
use strict;
use utf8;

=encoding utf8

=head1 NAME

App::MonM::Const - Interface for App::MonM general constants

=head1 VERSION

Version 1.01

=head1 SYNOPSIS

    use App::MonM::Const;

=head1 DESCRIPTION

This module provide interface for App::MonM general constants

=head2 SHARED CONSTANTS

=over 4

=item DAEMONMAME

Daemon name

=item GROUPNAME, USERNAME

Daemon user and group name

=item HOSTNAME

Hostname

=item PREFIX

Prefix of project

=item PROJECTNAME

Project name

=item PROJECTNAMEL

Project name in lower case

=item IS_TTY

Returns boolean TTY status if current session runs under terminal

=back

=head2 NOT IMPORTED CONSTANTS

=over 4

=item TRUE, FALSE, VOID

1, 0, '' values

=item OK, DONE, ERROR, SKIPPED, PASSED, FAILED, UNKNOWN, PROBLEM

Test result statuses

=back

=head1 HISTORY

See C file

=head1 TO DO

See C file

=head1 AUTHOR

Serż Minus (Sergey Lepenkov) L [e-mail]

=head1 COPYRIGHT

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

=head1 LICENSE

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

See C file and L

=cut

use vars qw/$VERSION @EXPORT @EXPORT_OK/;
$VERSION = '1.01';

use Sys::Hostname qw/hostname/;
use Try::Tiny;

use base qw/Exporter/;

use constant {
        PROJECTNAME         => "MonM",
        PROJECTNAMEL        => "monm",
        PREFIX              => "monm",
        DAEMONMAME          => 'monmd',
        USERNAME            => 'monmu',
        GROUPNAME           => 'monmu',

        # TTY
        IS_TTY              => (-t STDOUT) ? 1 : 0,
        SCREENWIDTH_DEFAULT => 80,

        # BOOLEAN
        TRUE                => 1,
        FALSE               => 0,
        VOID                => '',

        # Date & Time
        DATETIME_FORMAT     => "%w, %DD %MON %YYYY %hh:%mm:%ss",
        DATETIME_GMT_FORMAT => "%w, %DD %MON %YYYY %hh:%mm:%ss %G",

        # Test results
        OK                  => "OK",        # for SMALL operations
        DONE                => "DONE",      # for LONG operations
        ERROR               => "ERROR",     # for operations
        SKIPPED             => "SKIPPED",   # for tests
        PASSED              => "PASSED",    # for tests
        FAILED              => "FAILED",    # for tests
        UNKNOWN             => "UNKNOWN",   # for tests
        PROBLEM             => "PROBLEM",   # for tests
    };

@EXPORT = (qw/
        PROJECTNAME PROJECTNAMEL PREFIX DAEMONMAME
        USERNAME GROUPNAME
        HOSTNAME
        IS_TTY
        SCREENWIDTH
        DATETIME_FORMAT DATETIME_GMT_FORMAT
    /);
@EXPORT_OK = (qw/
        TRUE FALSE VOID
        OK DONE ERROR SKIPPED PASSED FAILED UNKNOWN PROBLEM
    /);

my $myhostname = undef;
*HOSTNAME = sub {
    $myhostname ||= (hostname() // 'localhost');
    return $myhostname;
};

my $myscreenw = undef;
*SCREENWIDTH = sub {
    return $myscreenw if defined $myscreenw;
    if (IS_TTY) {
        try {
            require Term::ReadKey;
            my $w = (Term::ReadKey::GetTerminalSize())[0];
            $myscreenw = $w < SCREENWIDTH_DEFAULT ? SCREENWIDTH_DEFAULT : $w;
        } catch {
            $myscreenw = SCREENWIDTH_DEFAULT;
        };
    } else {
        $myscreenw = SCREENWIDTH_DEFAULT;
    }
    return $myscreenw;
};

1;

__END__