Permalink
Find file
Fetching contributors…
Cannot retrieve contributors at this time
7 lines (4 sloc) 130 Bytes
use v6;
use IO::Capture::Simple;
my ($out, $err, $in) = capture { print "OUT"; note "ERR"; prompt "IN> " }
say $out, $err, $in;