EVOLUTION-MANAGER

Edit File: Capture.pm

package t::Capture; use base qw(Exporter); our @EXPORT = qw(capture_out); sub capture_out { no warnings 'uninitialized'; my $code = shift; my $stdout; open my $oldout, ">&STDOUT"; close STDOUT; open STDOUT, ">", \$stdout or die $!; select STDOUT; $| = 1; $code->(); open STDOUT, ">&", $oldout; return $stdout; } 1;