From 6bbeb03e06a538825f038d87d9c5548fe3546c6c Mon Sep 17 00:00:00 2001
From: Tom Ryder <tom@sanctum.geek.nz>
Date: Sat, 7 Jul 2018 13:24:17 +1200
Subject: Add POD rules to Vim Perl indent

---
 vim/indent/perl.vim | 52 ++++++++++++++++++++++++++++++++++------------------
 1 file changed, 34 insertions(+), 18 deletions(-)

diff --git a/vim/indent/perl.vim b/vim/indent/perl.vim
index ee8fbd68..68ee8d34 100644
--- a/vim/indent/perl.vim
+++ b/vim/indent/perl.vim
@@ -35,41 +35,48 @@ function! GetPerlIndent(lnum)
     return 0
   endif
 
-  " Heredoc detection; start at top of buffer
-  let l:hn = 0
-  while l:hn < a:lnum
-    let l:hl = getline(l:hn)
+  " Heredoc and POD detection; start at top of buffer
+  let l:pod = 0
+  let l:hpn = 0
+  while l:hpn < a:lnum
+    let l:hpl = getline(l:hpn)
 
     " If we're not in a heredoc and not in a comment ...
-    if !exists('l:hw') && l:hl !~# '^\s*#'
+    if !exists('l:hpw') && l:hpl !~# '^\s*#'
 
-      " Line opens with a heredoc
-      let l:hm = matchstr(l:hl, s:heredoc_open)
+      " POD switching
+      if !l:pod && stridx(l:hpl, '=pod') == 0
+        let l:pod = 1
+      elseif l:pod && stridx(l:hpl, '=cut') == 0
+        let l:pod = 0
+      else
+
+        " Line opens with a heredoc
+        let l:hpm = matchstr(l:hpl, s:heredoc_open)
+
+        " Store the heredoc word and make this our indent reference
+        if strlen(l:hpm)
+          let l:hpw = matchstr(l:hpm, s:heredoc_word)
+          let l:pn = l:hpn
+        endif
 
-      " Store the heredoc word and make this our indent reference
-      if strlen(l:hm)
-        let l:hw = matchstr(l:hm, s:heredoc_word)
-        let l:pn = l:hn
       endif
 
     " If we are in a heredoc and we found the token word, finish it
-    elseif exists('l:hw') && l:hl =~# '^'.l:hw.'\>'
-      unlet l:hw
+    elseif exists('l:hpw') && l:hpl =~# '^'.l:hpw.'\>'
+      unlet l:hpw
     endif
 
     " Bump the loop index
-    let l:hn = l:hn + 1
+    let l:hpn = l:hpn + 1
 
   endwhile
 
   " If we ended up in a heredoc, return 0 for the indent.
-  if exists('l:hw')
+  if exists('l:hpw')
     return 0
   endif
 
-  " Get current line properties
-  let l:cl = getline(v:anum)
-
   " Get data of previous non-blank and non-heredoc line
   let l:pl = getline(l:pn)
   let l:pi = indent(l:pn)
@@ -79,6 +86,15 @@ function! GetPerlIndent(lnum)
         \ ? shiftwidth()
         \ : &shiftwidth
 
+  " If we're in POD and the indent of the previous line was less than
+  " 'shiftwith', keep it there.
+  if l:pod && l:pi < l:sw
+    return l:pi
+  endif
+
+  " Get current line properties
+  let l:cl = getline(a:lnum)
+
   " Base indent with any fractional indent removed
   let l:pb = l:pi - l:pi % l:sw
 
-- 
cgit v1.2.3