Cross Reference: Catch.pm
xref
: /
osnet-11
/
usr
/
src
/
cmd
/
perl
/
5.8.4
/
distrib
/
t
/
lib
/
Test
/
Simple
/
Catch.pm
Home
History
Annotate
Line#
Navigate
Download
Search
only in
./
1
N/A
# For testing Test::Simple;
1
N/A
package
Test
::
Simple
::
Catch
;
1
N/A
1
N/A
use
Symbol
;
1
N/A
my
($
out_fh
, $
err_fh
) = (
gensym
,
gensym
);
1
N/A
my
$
out
=
tie
*$
out_fh
,
__PACKAGE__
;
1
N/A
my
$
err
=
tie
*$
err_fh
,
__PACKAGE__
;
1
N/A
1
N/A
use
Test
::
Builder
;
1
N/A
my
$t =
Test
::
Builder
->
new
;
1
N/A
$t->
output
($
out_fh
);
1
N/A
$t->
failure_output
($
err_fh
);
1
N/A
$t->
todo_output
($
err_fh
);
1
N/A
1
N/A
sub
caught
{
return
($
out
, $
err
) }
1
N/A
1
N/A
sub
PRINT
{
1
N/A
my
$
self
=
shift
;
1
N/A
$$
self
.=
join
''
, @_;
1
N/A
}
1
N/A
1
N/A
sub
TIEHANDLE
{
1
N/A
my
$
class
=
shift
;
1
N/A
my
$
self
=
''
;
1
N/A
return
bless
\$
self
, $
class
;
1
N/A
}
1
N/A
sub
READ
{}
1
N/A
sub
READLINE
{}
1
N/A
sub
GETC
{}
1
N/A
sub
FILENO
{}
1
N/A
1
N/A
1
;