Curious corner cases concerning closure cloning

What do these do?

  for 1,2 {
      my $code = {
          my $x;
          BEGIN { $x = 42 }
          $x;
      };
      say $code();
  }

  for 1,2 {
      my $code = {
          state $x;
          BEGIN { $x = 42 }  # mind you, not FIRST
          $x++;
      };
      say $code();
      say $code();
  }

  for 1,2 -> $x {
      END { say $x }
  }

Thanks,
Luke

• Curious corner cases concerning closure cloning by Luke Palmer
• Re: Curious corner cases concerning closure cloning by Jonathan Scott Duff
• Re: Curious corner cases concerning closure cloning by Yuval Kogman