Capturing a module output

Question

Say we have this module:

unit module outputs;

say "Loaded";

And we load it like this

use v6;

use lib ".";

require "outputs.pm6";

That will print "Loaded" when it's required. Say we want to capture the standard output of that loaded module. We can do that if it's an external process, but there does not seem to be a way for redirecting *OUT to a string or,if that's not possible, to a file. Is that so?

Answer 1

You could try use IO::String:

use v6;
use lib ".";
use IO::String;

my $buffer = IO::String.new;
with $buffer -> $*OUT {
    require "outputs.pm6";
};

say "Finished";
print ~$buffer;

Output:

Finished
Loaded

See also If I reassigned OUT in Perl 6, how can I change it back to stdout?

Answer 2

Temporarily reassigning $*OUT so that .print calls append to a string:

my $capture-stdout;

{ 
  my $*OUT = $*OUT but
             role { method print (*@args) { $capture-stdout ~= @args } }

  require "outputs.pm6" # `say` goes via above `print` method 
}

say $capture-stdout; # Loaded