trace backtrack => [ statement => [
[ symbol => 'decision' ],
[ pairs => [
- [ for => $rspace_was->proposition, ]
- #aperture =>
+ [ for => $rspace_was->proposition, ],
+ [ aperture => [ block => [
+ map [ statement => [
+ [ symbol => (split '::', ${$_->[0]})[-1] ],
+ [ value_path => [ @{$_}[1..$#$_] ] ],
+ ] ], @{$rspace_was->aperture}
+ ] ] ]
] ]
] ];
foreach my $event (@{$rspace_was->aperture}) {