1N/A# For testing Test::Simple;
1N/Apackage Test::Simple::Catch;
1N/A
1N/Ause Symbol;
1N/Amy($out_fh, $err_fh) = (gensym, gensym);
1N/Amy $out = tie *$out_fh, __PACKAGE__;
1N/Amy $err = tie *$err_fh, __PACKAGE__;
1N/A
1N/Ause Test::Builder;
1N/Amy $t = Test::Builder->new;
1N/A$t->output($out_fh);
1N/A$t->failure_output($err_fh);
1N/A$t->todo_output($err_fh);
1N/A
1N/Asub caught { return($out, $err) }
1N/A
1N/Asub PRINT {
1N/A my $self = shift;
1N/A $$self .= join '', @_;
1N/A}
1N/A
1N/Asub TIEHANDLE {
1N/A my $class = shift;
1N/A my $self = '';
1N/A return bless \$self, $class;
1N/A}
1N/Asub READ {}
1N/Asub READLINE {}
1N/Asub GETC {}
1N/Asub FILENO {}
1N/A
1N/A1;