sub foo {
  ($foo_cache{...} ||=
     do {
       my @result = do {
         ... rest of sub goes here
       }
       sub { @result[0..$#result] };
     };
   )->();
}