summaryrefslogtreecommitdiff
path: root/ale_linters/perl/perlcritic.vim
diff options
context:
space:
mode:
Diffstat (limited to 'ale_linters/perl/perlcritic.vim')
-rw-r--r--ale_linters/perl/perlcritic.vim46
1 files changed, 46 insertions, 0 deletions
diff --git a/ale_linters/perl/perlcritic.vim b/ale_linters/perl/perlcritic.vim
new file mode 100644
index 00000000..98ac83a8
--- /dev/null
+++ b/ale_linters/perl/perlcritic.vim
@@ -0,0 +1,46 @@
+" Author: Vincent Lequertier <https://github.com/SkySymbol>
+" Description: This file adds support for checking perl with perl critic
+
+if exists('g:loaded_ale_linters_perl_perlcritic')
+ finish
+endif
+
+let g:loaded_ale_linters_perl_perlcritic = 1
+function! ale_linters#perl#perlcritic#Handle(buffer, lines)
+ let pattern = '\(.\+\) at \(.\+\) line \(\d\+\)'
+ let output = []
+
+ for line in a:lines
+ let l:match = matchlist(line, pattern)
+
+ if len(l:match) == 0
+ continue
+ endif
+
+ let line = l:match[3]
+ let column = 1
+ let text = l:match[1]
+ let type = 'E'
+
+ " vcol is Needed to indicate that the column is a character.
+ call add(output, {
+ \ 'bufnr': a:buffer,
+ \ 'lnum': line,
+ \ 'vcol': 0,
+ \ 'col': column,
+ \ 'text': text,
+ \ 'type': type,
+ \ 'nr': -1,
+ \})
+ endfor
+
+ return output
+endfunction
+
+call ALEAddLinter('perl', {
+\ 'name': 'perlcritic',
+\ 'executable': 'perlcritic',
+\ 'output_stream': 'sdtout',
+\ 'command': 'perlcritic --verbose 3 --nocolor',
+\ 'callback': 'ale_linters#perl#perlcritic#Handle',
+\})