view release on metacpan or  search on metacpan

t/04-options.t  view on Meta::CPAN

# noterm=1 does not suppress color=ON
{
    Devel::Bug->import(out => *TESTOUT, color => 1, vc => 'red', noterm => 1);
    reset_capture();
    my $in;
    ($in = bug('c') = 42);
    like $buf, qr/\e\[/, 'noterm=1 does not suppress color=ON';
}

# ---------------------------------------------------------------------------
# terminal width detection cascade: stty → Term::Size::Perl
# Simulate unavailability via an @INC hook that blocks Term/Size/Perl.pm.
# ---------------------------------------------------------------------------
{
    my $attempts = 0;

    my $block = sub {
        return unless $_[1] eq 'Term/Size/Perl.pm';
        $attempts++;
        die "Term::Size::Perl not available\n";
    };