diff -r e9e7eca7efee -r bf71ee032bb4 src/eric7/QScintilla/Lexers/LexerPerl.py --- a/src/eric7/QScintilla/Lexers/LexerPerl.py Wed Jul 13 11:16:20 2022 +0200 +++ b/src/eric7/QScintilla/Lexers/LexerPerl.py Wed Jul 13 14:55:47 2022 +0200 @@ -19,21 +19,22 @@ """ Subclass to implement some additional lexer dependant methods. """ + def __init__(self, parent=None): """ Constructor - + @param parent parent widget of this lexer """ QsciLexerPerl.__init__(self, parent) Lexer.__init__(self) - + self.commentString = "#" - + self.keywordSetDescriptions = [ self.tr("Keywords"), ] - + def initProperties(self): """ Public slot to initialize the properties. @@ -45,45 +46,47 @@ self.setFoldPODBlocks(Preferences.getEditor("PerlFoldPODBlocks")) with contextlib.suppress(AttributeError): self.setFoldAtElse(Preferences.getEditor("PerlFoldAtElse")) - + def autoCompletionWordSeparators(self): """ Public method to return the list of separators for autocompletion. - + @return list of separators (list of strings) """ - return ['::', '->'] - + return ["::", "->"] + def isCommentStyle(self, style): """ Public method to check, if a style is a comment style. - + @param style style to check (integer) @return flag indicating a comment style (boolean) """ return style in [QsciLexerPerl.Comment] - + def isStringStyle(self, style): """ Public method to check, if a style is a string style. - + @param style style to check (integer) @return flag indicating a string style (boolean) """ - return style in [QsciLexerPerl.DoubleQuotedHereDocument, - QsciLexerPerl.DoubleQuotedString, - QsciLexerPerl.QuotedStringQ, - QsciLexerPerl.QuotedStringQQ, - QsciLexerPerl.QuotedStringQR, - QsciLexerPerl.QuotedStringQW, - QsciLexerPerl.QuotedStringQX, - QsciLexerPerl.SingleQuotedHereDocument, - QsciLexerPerl.SingleQuotedString] - + return style in [ + QsciLexerPerl.DoubleQuotedHereDocument, + QsciLexerPerl.DoubleQuotedString, + QsciLexerPerl.QuotedStringQ, + QsciLexerPerl.QuotedStringQQ, + QsciLexerPerl.QuotedStringQR, + QsciLexerPerl.QuotedStringQW, + QsciLexerPerl.QuotedStringQX, + QsciLexerPerl.SingleQuotedHereDocument, + QsciLexerPerl.SingleQuotedString, + ] + def defaultKeywords(self, kwSet): """ Public method to get the default keywords. - + @param kwSet number of the keyword set (integer) @return string giving the keywords (string) or None """