Help for this page

Select Code to Download

Select or download this

function GetPerlFold()
  if getline(v:lnum) =~ '^\s*sub\s'
...
endfunction
setlocal foldexpr=GetPerlFold()
setlocal foldmethod=expr