Include slurpy parameters in the Perl 6 detection heuristic

Slurpy parameters (http://perlcabal.org/syn/S06.html#List_parameters)
are signified with a leading '*' character.  *@array, *%hash, and *&sub
are not valid Perl 5, so this is a good test for Perl 6.

1 files changed, 5 insertions, 0 deletions

diff --git a/pygments/lexers/agile.py b/pygments/lexers/agile.py
index c9447635..e4fd3a54 100644
--- a/pygments/lexers/agile.py
+++ b/pygments/lexers/agile.py
@@ -2275,6 +2275,11 @@ class Perl6Lexer(ExtendedRegexLexer):
             return 0.91
         if re.search(r'[$@%][!.][A-Za-z0-9_-]+', text): # Perl 6 member variables
             return 0.91
+        if re.search(r'[*][@%&]', text): # Slurpy parameters
+            # Scalar slurpies (*$slurp) are not included because they're more rare
+            # in Perl 6, and also (more importantly) they are a glob deference in
+            # Perl 5.
+            return 0.91
 
         for line in text.splitlines():
             if re.match(r'\s*(?:my|our)?\s*(?:module|role|class)\b', line): # module, role, class declarations