File Coverage

lib/Wireguard/WGmeta/Cli/TerminalHelpers.pm

Criterion	Covered	Total	%
statement	27	36	75.0
branch	5	14	35.7
condition			n/a
subroutine	9	10	90.0
pod	0	1	0.0
total	41	61	67.2

package Wireguard::WGmeta::Cli::TerminalHelpers;
use strict;
use warnings FATAL => 'all';
use experimental 'signatures';
use base 'Exporter';
our @EXPORT = qw(prettify_message BOLD RESET GREEN RED YELLOW);

use constant BOLD => (!defined($ENV{'WG_NO_COLOR'})) ? "\e[1m" : "";
use constant RESET => (!defined($ENV{'WG_NO_COLOR'})) ? "\e[0m" : "";
use constant GREEN => (!defined($ENV{'WG_NO_COLOR'})) ? "\e[32m" : "";
use constant RED => (!defined($ENV{'WG_NO_COLOR'})) ? "\e[31m" : "";
use constant YELLOW => (!defined($ENV{'WG_NO_COLOR'})) ? "\e[33m" : "";

sub prettify_message($error, $is_warning) {
    $error =~ s/at.*$//g unless (defined $ENV{IS_TESTING});
    if ($is_warning == 1) {
        print BOLD . YELLOW . "Warning: " . RESET . $error;
        return;
    }
    print BOLD . RED . "Error: " . RESET . $error;
}

1;