Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
PerlMonks  

Re: how to control/redirect print()

by hesco (Deacon)
on Apr 03, 2011 at 01:47 UTC ( [id://897139]=note: print w/replies, xml ) Need Help??


in reply to how to control/redirect print()

I don't remember the details of how I did this, but this was necessary for a module I published years ago to CPAN, Test::MonitorSites. A review of that code will likely turn up some useful clues.

UPDATE:

OK, this seems to be the code which did the trick:

my $Test = Test::Builder->new; my @handle_names = qw/ output failure_output todo_output /; my %old; $old{$_} = $Test->$_ for @handle_names; $Test->$_(\*STDOUT) for @handle_names; # which was restored like so . . . $Test->todo_output(*STDOUT); $Test->failure_output(*STDERR); $Test->output(*STDOUT);
-- Hugh

if( $lal && $lol ) { $life++; }
if( $insurance->rationing() ) { $people->die(); }

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://897139]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others taking refuge in the Monastery: (4)
As of 2024-04-25 10:05 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found