#!/usr/bin/env perl
use strict;
use warnings;

use Capture::Tiny ':all';

sub innerAction {
    print STDERR "FIRST CAPTURE\n";  # to innerbuffer, works
}

sub handleInner {
    print STDERR "INNER before capture\n";
    
    my ($innerBuffer, @results) = capture_stderr { innerAction(); };
    
    print STDERR "INNER past restore\n";  
    # above goes to console or the outerbuffer, 
    #   it fails for outerbuffer when called from handleOuter
    
    chomp $innerBuffer;    
    my $no=1;
    foreach my $line (split("\n", $innerBuffer)) {
	print "BUFFER (inner): $no; #>>$line<\n";
	$no++;
    }
}

sub outerAction {
    print STDERR "OUTER before call\n"; # to outerbuffer
    handleInner();
    print STDERR "OUTER past call\n"; # to outerbuffer
}
sub handleOuter {
    print STDERR "OUTER BEFORE CAPTURE\n";
    
    my ($outerBuffer, @resuts) = capture_stderr {outerAction();};
    
    print STDERR "OUTER PAST RESTORE\n";
    chomp $outerBuffer;
    my $no=1;
    foreach my $line (split("\n", $outerBuffer)) {
	print "BUFFER (outer): $no; #>>$line<\n";
	$no++;
    }
}

handleInner();
print "################################# \n";
handleOuter();

##</code><code>##

INNER before capture
INNER after restore
INNER past restore
BUFFER (inner): 1; #>>FIRST CAPTURE<
################################# 
OUTER BEFORE CAPTURE
BUFFER (inner): 1; #>>FIRST CAPTURE<
OUTER PAST RESTORE
BUFFER (outer): 1; #>>OUTER before call<
BUFFER (outer): 2; #>>INNER before capture<
BUFFER (outer): 3; #>>INNER past restore<
BUFFER (outer): 4; #>>OUTER past call<