|
Packit |
d18d0a |
use strict;
|
|
Packit |
d18d0a |
use warnings;
|
|
Packit |
d18d0a |
|
|
Packit |
d18d0a |
use Capture::Tiny qw/capture tee/;
|
|
Packit |
d18d0a |
|
|
Packit |
d18d0a |
print "Type some text. Type 'exit' to quit\n";
|
|
Packit |
d18d0a |
my ($out, $err) = tee {
|
|
Packit |
d18d0a |
while (<>) {
|
|
Packit |
d18d0a |
last if /^exit$/;
|
|
Packit |
d18d0a |
print "Echoing to STDOUT: $_";
|
|
Packit |
d18d0a |
print STDERR "Echoing to STDERR: $_";
|
|
Packit |
d18d0a |
}
|
|
Packit |
d18d0a |
};
|
|
Packit |
d18d0a |
|
|
Packit |
d18d0a |
print "\nCaptured STDOUT was:\n" . ( defined $out ? $out : 'undef' );
|
|
Packit |
d18d0a |
print "\nCaptured STDERR was:\n" . ( defined $err ? $err : 'undef' );
|
|
Packit |
d18d0a |
|
|
Packit |
d18d0a |
|