I would like to implement the following. Suppose, we have this org file:

#+BABEL: :cache yes :tangle yes :noweb yes
#+NAME: top_block#+begin_src perl :tangle "test.pl" :noweb tangle
:shebang #!/usr/bin/perl
  use strict;
  use warnings;

  open(my $fh, "<", "test.txt")
      or die "cannot open < file name: $!";
  <<output-all>>
  close($fh);#+end_src
#+NAME: output-all#+begin_src perl
  while (my $line = <$fh>) {
      print $line;
  }#+end_src

I can expand/collapse src blocks only when the cursor is on the top lines:


#+NAME: top_block#+begin_src perl ...

But when it is inside any text in the scr block, expand/collapse doesn't
work. How can I add this functionality as moving the cursor every time is
not nice.