sync a bunch of files with Test::Simple 0.86

[p5sagit/p5-mst-13.2.git] / t / lib / Test / Simple / Catch.pm

diff --git a/t/lib/Test/Simple/Catch.pm b/t/lib/Test/Simple/Catch.pm
index e1ccd7c..6f60493 100644 (file)
--- a/t/lib/Test/Simple/Catch.pm
+++ b/t/lib/Test/Simple/Catch.pm
@@ -1,10 +1,12 @@
 # For testing Test::Simple;
+# $Id$
 package Test::Simple::Catch;
 
 use Symbol;
-my($out_fh, $err_fh) = (gensym, gensym);
-my $out = tie *$out_fh, __PACKAGE__;
-my $err = tie *$err_fh, __PACKAGE__;
+use TieOut;
+my( $out_fh, $err_fh ) = ( gensym, gensym );
+my $out = tie *$out_fh, 'TieOut';
+my $err = tie *$err_fh, 'TieOut';
 
 use Test::Builder;
 my $t = Test::Builder->new;
@@ -12,21 +14,6 @@ $t->output($out_fh);
 $t->failure_output($err_fh);
 $t->todo_output($err_fh);
 
-sub caught { return($out, $err) }
-
-sub PRINT  {
-    my $self = shift;
-    $$self .= join '', @_;
-}
-
-sub TIEHANDLE {
-    my $class = shift;
-    my $self = '';
-    return bless \$self, $class;
-}
-sub READ {}
-sub READLINE {}
-sub GETC {}
-sub FILENO {}
+sub caught { return( $out, $err ) }
 
 1;