use strict;
use warnings;
use IO::Scalar;
open SAVEOUT, ">&STDOUT";
print SAVEOUT "";
my $buffer = "";
tie *STDOUT, 'IO::Scalar', \$buffer;
sub reset_out_buffer
{
$buffer = "";
}
sub get_out_buffer
{
return $buffer;
}
1;
use strict;
use warnings;
use IO::Scalar;
open SAVEOUT, ">&STDOUT";
print SAVEOUT "";
my $buffer = "";
tie *STDOUT, 'IO::Scalar', \$buffer;
sub reset_out_buffer
{
$buffer = "";
}
sub get_out_buffer
{
return $buffer;
}
1;