view release on metacpan or  search on metacpan

t/eval_barrier.t  view on Meta::CPAN

];

$cont = undef; @events = ();
push @events, ["a0"];
@value = eval {
	push @events, ["b0"];
	@value = sub {
		push @events, ["c0"];
		$cont = current_escape_function;
		push @events, ["c1"];
		@value = require("t/eval_barrier_req.pl");
		push @events, ["c3", [@value]];
		("c4a", "c4b");
	}->();
	push @events, ["b1", [@value]];
	("b2a", "b2b");
};
push @events, ["a1", [@value], $@];
is_deeply \@events, [
	["a0"],
	["b0"],