ext/Test-Simple/t/lib/Test/Simple/Catch.pm

   1 # For testing Test::Simple;
   2 package Test::Simple::Catch;
   3
   4 use strict;
   5
   6 use Symbol;
   7 use TieOut;
   8 my( $out_fh, $err_fh ) = ( gensym, gensym );
   9 my $out = tie *$out_fh, 'TieOut';
  10 my $err = tie *$err_fh, 'TieOut';
  11
  12 use Test::Builder;
  13 my $t = Test::Builder->new;
  14 $t->output($out_fh);
  15 $t->failure_output($err_fh);
  16 $t->todo_output($err_fh);
  17
  18 sub caught { return( $out, $err ) }
  19
  20 1;