view release on metacpan or  search on metacpan

t/01fuses.t  view on Meta::CPAN

#!/usr/bin/perl

use strict;
use warnings;

use Test::More;

use App::AVR::Fuses;

sub capture(&)
{
   my $code = shift;

   open my $fh, ">", \my $output;
   my $was_outfh = select;
   select $fh;

   $code->();

   select $was_outfh;

t/02verbose.t  view on Meta::CPAN

#!/usr/bin/perl

use strict;
use warnings;

use Test::More;

use App::AVR::Fuses;

sub capture(&)
{
   my $code = shift;

   open my $fh, ">", \my $output;
   my $was_outfh = select;
   select $fh;

   $code->();

   select $was_outfh;