summaryrefslogtreecommitdiff
path: root/ale_linters/perl
diff options
context:
space:
mode:
authorVincent Lequertier <sky@riseup.net>2016-10-09 17:31:03 +0200
committerVincent Lequertier <sky@riseup.net>2016-10-09 17:33:03 +0200
commitd1cf20868358281d7940c0f24052d8a04ad61acf (patch)
tree9bf487be87ec3f3ec1e2c8250f5cec731bc94024 /ale_linters/perl
parent34241edcdbc562f074988ba54b970a6ecf8dd4d9 (diff)
downloadale-d1cf20868358281d7940c0f24052d8a04ad61acf.zip
Add support for perl and perlcritic
Diffstat (limited to 'ale_linters/perl')
-rw-r--r--ale_linters/perl/perl.vim46
-rw-r--r--ale_linters/perl/perlcritic.vim46
2 files changed, 92 insertions, 0 deletions
diff --git a/ale_linters/perl/perl.vim b/ale_linters/perl/perl.vim
new file mode 100644
index 00000000..ad33b6dc
--- /dev/null
+++ b/ale_linters/perl/perl.vim
@@ -0,0 +1,46 @@
+" Author: Vincent Lequertier <https://github.com/SkySymbol>
+" Description: This file adds support for checking perl syntax
+
+if exists('g:loaded_ale_linters_perl_perlcritic')
+ finish
+endif
+
+let g:loaded_ale_linters_perl_perl = 1
+function! ale_linters#perl#perl#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': 'perl',
+\ 'executable': 'perl',
+\ 'output_stream': 'both',
+\ 'command': 'perl -X -c -Mwarnings -Ilib',
+\ 'callback': 'ale_linters#perl#perl#Handle',
+\})
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',
+\})