How to show/hide the snippet block in org-babel when the cursor is inside the snippet text

[Ivanov Dmitry <usr345@gmail.com>]

[-- Attachment #1: Type: text/plain, Size: 725 bytes --]

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.

[-- Attachment #2: Type: text/html, Size: 3255 bytes --]