view release on metacpan or  search on metacpan

lib/App/Hack/Exe.pm  view on Meta::CPAN

                              XP^X'`b   d'`X^XX
                              X. 9  `   '  P )X
                              `b  `       '  d'
                               `             '
EOD
    # Float; Number of seconds to display "loading" animation for
    DOTS_DURATION => 1,
    # Int; Number of characters to draw each "loading" animation line
    # 77 = Width of demon
    DOTS_WIDTH => 77,
    # ANSI escape codes for cursor manipulation
    MEMORIZE_CURSOR => "\e\x{37}",
    RECALL_CURSOR => "\e\x{38}",
};

use Carp qw/ croak /;
use Socket 1.95 qw/
    AF_INET
    AF_INET6
    NI_NUMERICHOST
    NI_NUMERICSERV

t/no-color.t  view on Meta::CPAN

my $he = App::Hack::Exe->new(no_delay => 1);

local $ENV{NO_COLOR};
my ($errout) = capture_merged {
    # Close prompt immediately
    local *STDIN = gensym();
    $he->run('localhost');
};
like($errout, qr/\e\[/,
    'Color escapes should output when NO_COLOR is unset'
);

local $ENV{NO_COLOR} = 1;
($errout) = capture_merged {
    # Close prompt immediately
    local *STDIN = gensym();
    $he->run('localhost');
};
unlike($errout, qr/\e\[/,
    'No color escapes should output when NO_COLOR is unset'
);