feat(SublimeText2.WebPackages): cache packages

EthanBrown.SublimeText2.WebPackages/tools/PackageCache/SublimeLinter/sublimelinter/modules/perl.py

@@ -0,0 +1,65 @@
+# -*- coding: utf-8 -*-
+# perl.py - sublimelint package for checking perl files
+
+import re
+import subprocess
+
+from base_linter import BaseLinter
+
+CONFIG = {
+    'language': 'Perl'
+}
+
+
+class Linter(BaseLinter):
+    PERLCRITIC_RE = re.compile(r'\[(?P<pbp>.+)\] (?P<error>.+?) at line (?P<line>\d+), column (?P<column>\d+).+?')
+    PERL_RE = re.compile(r'(?P<error>.+?) at .+? line (?P<line>\d+)(, near "(?P<near>.+?)")?')
+
+    def __init__(self, config):
+        super(Linter, self).__init__(config)
+        self.linter = None
+
+    def get_executable(self, view):
+        self.linter = view.settings().get('perl_linter', 'perlcritic')
+
+        if self.linter == 'perl':
+            linter_name = 'Perl'
+        else:
+            linter_name = 'Perl::Critic'
+
+        try:
+            path = self.get_mapped_executable(view, self.linter)
+            subprocess.call([path, '--version'], startupinfo=self.get_startupinfo())
+            return (True, path, 'using {0}'.format(linter_name))
+        except OSError:
+            return (False, '', '{0} is required'.format(linter_name))
+
+    def get_lint_args(self, view, code, filename):
+        if self.linter == 'perl':
+            return ['-c']
+        else:
+            return ['--verbose', '8']
+
+    def parse_errors(self, view, errors, lines, errorUnderlines, violationUnderlines, warningUnderlines, errorMessages, violationMessages, warningMessages):
+        for line in errors.splitlines():
+            if self.linter == 'perl':
+                match = self.PERL_RE.match(line)
+            else:
+                match = self.PERLCRITIC_RE.match(line)
+
+            if match:
+                error, line = match.group('error'), match.group('line')
+                lineno = int(line)
+
+                if self.linter == 'perl':
+                    near = match.group('near')
+
+                    if near:
+                        error = '{0}, near "{1}"'.format(error, near)
+                        self.underline_regex(view, lineno, '(?P<underline>{0})'.format(re.escape(near)), lines, errorUnderlines)
+                else:
+                    column = match.group('column')
+                    column = int(column) - 1
+                    self.underline_word(view, lineno, column, errorUnderlines)
+
+                self.add_message(lineno, lines, error, errorMessages)