view release on metacpan or  search on metacpan

t/01-colors.t  view on Meta::CPAN

use warnings;
use strict;

use English    qw(-no_match_vars);
use Test::More tests => 5;
use Archlinux::Term qw(:all);

my %CODE_OF = ( 'red' => 31, 'green' => 32, 'yellow' => 33, 'blue' => 34, );

sub output_of(&)
{
    my ($code_ref) = @_;

    open my $old_stdout, '>&STDOUT' or die "open: $!";
    my $out_buffer;
    close STDOUT;
    open STDOUT, '>', \$out_buffer or die "open: $!";

    $code_ref->();

t/02-wrap.t  view on Meta::CPAN

#!/usr/bin/perl

use warnings;
use strict;
use Test::More tests => 4;

use Archlinux::Term qw(:all);

my $TEN = q{1234567890};

sub output_of(&)
{
    my ($code_ref) = @_;

    open my $old_stdout, '>&STDOUT' or die "open: $!";
    my $out_buffer;
    close STDOUT;
    open STDOUT, '>', \$out_buffer or die "open: $!";

    $code_ref->();