Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Re: how to control/redirect print()

by hesco (Deacon)
on Apr 03, 2011 at 01:47 UTC ( #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
Node Status?
node history
Node Type: note [id://897139]
help
Chatterbox?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (4)
As of 2018-07-20 09:07 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    It has been suggested to rename Perl 6 in order to boost its marketing potential. Which name would you prefer?















    Results (427 votes). Check out past polls.

    Notices?