golden hour

/usr/share/vim/vim74/indent

File/Folder	Size	Actions
README.txt	1.6 KB
aap.vim	265 B
ada.vim	10.89 KB
ant.vim	290 B
automake.vim	231 B
awk.vim	7.57 KB
bib.vim	346 B
bst.vim	1.87 KB
c.vim	325 B
cdl.vim	4.07 KB
ch.vim	470 B
chaiscript.vim	1.11 KB
changelog.vim	264 B
clojure.vim	11.85 KB
cmake.vim	2.69 KB
cobol.vim	8 KB
config.vim	2.12 KB
cpp.vim	329 B
cs.vim	327 B
css.vim	1.68 KB
cucumber.vim	2.56 KB
cuda.vim	305 B
d.vim	510 B
dictconf.vim	325 B
dictdconf.vim	326 B
docbk.vim	324 B
dtd.vim	11.39 KB
dtrace.vim	451 B
dylan.vim	2.6 KB
eiffel.vim	3.13 KB
erlang.vim	45.15 KB
eruby.vim	2.11 KB
eterm.vim	638 B
falcon.vim	13.65 KB
fortran.vim	6.41 KB
framescript.vim	786 B
gitconfig.vim	817 B
gitolite.vim	996 B
haml.vim	2.14 KB
hamster.vim	1.37 KB
html.vim	14.46 KB
htmldjango.vim	273 B
idlang.vim	1.53 KB
ishd.vim	1.8 KB
java.vim	4.02 KB
javascript.vim	336 B
jsp.vim	462 B
ld.vim	1.71 KB
lifelines.vim	637 B
liquid.vim	1.83 KB
lisp.vim	353 B
logtalk.vim	1.65 KB
lua.vim	1.87 KB
mail.vim	308 B
make.vim	3.35 KB
matlab.vim	1.88 KB
mma.vim	2.17 KB
mp.vim	6.37 KB
objc.vim	1.61 KB
ocaml.vim	8.9 KB
occam.vim	4.53 KB
pascal.vim	5.52 KB
perl.vim	5.67 KB
perl6.vim	3.42 KB
php.vim	18.97 KB
postscr.vim	1.58 KB
pov.vim	2.58 KB
prolog.vim	1.42 KB
pyrex.vim	326 B
python.vim	5.61 KB
r.vim	14.44 KB
readline.vim	681 B
rpl.vim	1.79 KB
rst.vim	1.35 KB
ruby.vim	17.13 KB
sass.vim	1018 B
scheme.vim	241 B
scss.vim	191 B
sdl.vim	2.7 KB
sh.vim	3.95 KB
sml.vim	6.27 KB
sql.vim	1.18 KB
sqlanywhere.vim	12.77 KB
tcl.vim	1.56 KB
tcsh.vim	1.21 KB
tex.vim	9.47 KB
tf.vim	1.46 KB
tilde.vim	994 B
treetop.vim	677 B
vb.vim	2 KB
verilog.vim	7.44 KB
vhdl.vim	13.48 KB
vim.vim	2.76 KB
xf86conf.vim	679 B
xhtml.vim	269 B
xinetd.vim	1.17 KB
xml.vim	2.77 KB
xsd.vim	253 B
xslt.vim	297 B
yacc.vim	769 B
yaml.vim	4.02 KB
zimbu.vim	3.8 KB
zsh.vim	231 B

Edit: perl.vim

" Vim indent file
" Language:      Perl 5
" Maintainer:    vim-perl <vim-perl@googlegroups.com>
" Homepage:      http://github.com/vim-perl/vim-perl
" Bugs/requests: http://github.com/vim-perl/vim-perl/issues
" Last Change:   2013-07-24

" Suggestions and improvements by :
"   Aaron J. Sherman (use syntax for hints)
"   Artem Chuprina (play nice with folding)

" TODO things that are not or not properly indented (yet) :
" - Continued statements
"     print "foo",
"       "bar";
"     print "foo"
"       if bar();
" - Multiline regular expressions (m//x)
" (The following probably needs modifying the perl syntax file)
" - qw() lists
" - Heredocs with terminators that don't match \I\i*

" Only load this indent file when no other was loaded.
if exists("b:did_indent")
    finish
endif
let b:did_indent = 1

" Is syntax highlighting active ?
let b:indent_use_syntax = has("syntax")

setlocal indentexpr=GetPerlIndent()
setlocal indentkeys+=0=,0),0],0=or,0=and
if !b:indent_use_syntax
    setlocal indentkeys+=0=EO
endif

let s:cpo_save = &cpo
set cpo-=C

function! GetPerlIndent()

" Get the line to be indented
    let cline = getline(v:lnum)

" Indent POD markers to column 0
    if cline =~ '^\s*=\L\@!'
        return 0
    endif

" Don't reindent comments on first column
    if cline =~ '^#.'
        return 0
    endif

" Get current syntax item at the line's first char
    let csynid = ''
    if b:indent_use_syntax
        let csynid = synIDattr(synID(v:lnum,1,0),"name")
    endif

" Don't reindent POD and heredocs
    if csynid == "perlPOD" || csynid == "perlHereDoc" || csynid =~ "^pod"
        return indent(v:lnum)
    endif

" Indent end-of-heredocs markers to column 0
    if b:indent_use_syntax
        " Assumes that an end-of-heredoc marker matches \I\i* to avoid
        " confusion with other types of strings
        if csynid == "perlStringStartEnd" && cline =~ '^\I\i*$'
            return 0
        endif
    else
        " Without syntax hints, assume that end-of-heredocs markers begin with EO
        if cline =~ '^\s*EO'
            return 0
        endif
    endif

" Now get the indent of the previous perl line.

" Find a non-blank line above the current line.
    let lnum = prevnonblank(v:lnum - 1)
    " Hit the start of the file, use zero indent.
    if lnum == 0
        return 0
    endif
    let line = getline(lnum)
    let ind = indent(lnum)
    " Skip heredocs, POD, and comments on 1st column
    if b:indent_use_syntax
        let skippin = 2
        while skippin
            let synid = synIDattr(synID(lnum,1,0),"name")
            if (synid == "perlStringStartEnd" && line =~ '^\I\i*$')
                        \ || (skippin != 2 && synid == "perlPOD")
                        \ || (skippin != 2 && synid == "perlHereDoc")
                        \ || synid == "perlComment"
                        \ || synid =~ "^pod"
                let lnum = prevnonblank(lnum - 1)
                if lnum == 0
                    return 0
                endif
                let line = getline(lnum)
                let ind = indent(lnum)
                let skippin = 1
            else
                let skippin = 0
            endif
        endwhile
    else
        if line =~ "^EO"
            let lnum = search("<<[\"']\\=EO", "bW")
            let line = getline(lnum)
            let ind = indent(lnum)
        endif
    endif

" Indent blocks enclosed by {}, (), or []
    if b:indent_use_syntax
        " Find a real opening brace
        " NOTE: Unlike Perl character classes, we do NOT need to escape the
        " closing brackets with a backslash.  Doing so just puts a backslash
        " in the character class and causes sorrow.  Instead, put the closing
        " bracket as the first character in the class.
        let braceclass = '[][(){}]'
        let bracepos = match(line, braceclass, matchend(line, '^\s*[])}]'))
        while bracepos != -1
            let synid = synIDattr(synID(lnum, bracepos + 1, 0), "name")
            " If the brace is highlighted in one of those groups, indent it.
            " 'perlHereDoc' is here only to handle the case '&foo(<<EOF)'.
            if synid == ""
                        \ || synid == "perlMatchStartEnd"
                        \ || synid == "perlHereDoc"
                        \ || synid == "perlBraces"
                        \ || synid =~ "^perlFiledescStatement"
                        \ || synid =~ '^perl$Sub\|Block\|Package$Fold'
                let brace = strpart(line, bracepos, 1)
                if brace == '(' || brace == '{' || brace == '['
                    let ind = ind + &sw
                else
                    let ind = ind - &sw
                endif
            endif
            let bracepos = match(line, braceclass, bracepos + 1)
        endwhile
        let bracepos = matchend(cline, '^\s*[])}]')
        if bracepos != -1
            let synid = synIDattr(synID(v:lnum, bracepos, 0), "name")
            if synid == ""
                        \ || synid == "perlMatchStartEnd"
                        \ || synid == "perlBraces"
                        \ || synid =~ '^perl$Sub\|Block\|Package$Fold'
                let ind = ind - &sw
            endif
        endif
    else
        if line =~ '[{[(]\s*$#[^])}]*$\=$'
            let ind = ind + &sw
        endif
        if cline =~ '^\s*[])}]'
            let ind = ind - &sw
        endif
    endif

" Indent lines that begin with 'or' or 'and'
    if cline =~ '^\s*$or\|and$\>'
        if line !~ '^\s*$or\|and$\>'
            let ind = ind + &sw
        endif
    elseif line =~ '^\s*$or\|and$\>'
        let ind = ind - &sw
    endif

return ind

endfunction

let &cpo = s:cpo_save
unlet s:cpo_save

" vim:ts=8:sts=4:sw=4:expandtab:ft=vim