Now the perl_syntax tool detects if perl files (.pl) are perl5 or perl6.

TODO

@@ -9,7 +9,6 @@ Todo
 Todo (tool related)
 - Report on python doctests. (also coverage of)
 - Cache tools._python_version.
-- Determine if perl files are perl5 or perl6.
 - Add bandit tool for python.
 
 
@@ -160,6 +159,8 @@ Done
 - Boilerplate: Readme, usage
 - Test the tools.
   <- All the existing tools now have basic tests.
+- Determine if perl files are perl5 or perl6.
+  <- At least done by perl_syntax.
 
 A-syntax, B-tests, C-auto docs, D-lint, E-coverage, F-profile, G-tidy, H-import deps
              A B C D E F G H

golden-files/input/perl6.pl

@@ -0,0 +1,232 @@
+#!/usr/bin/env perl6
+
+use v6;
+
+my $string = 'I look like a # comment!';
+
+if $string eq 'foo' {
+    say 'hello';
+}
+
+regex http-verb {
+      'GET'
+    | 'POST'
+    | 'PUT'
+    | 'DELETE'
+    | 'TRACE'
+    | 'OPTIONS'
+    | 'HEAD'
+}
+
+# a sample comment
+
+say 'Hello from Perl 6!'
+
+
+#`{
+multi-line comment!
+}
+
+say 'here';
+
+#`(
+multi-line comment!
+)
+
+say 'here';
+
+#`{{{
+I'm a special comment!
+}}}
+
+say 'there';
+
+#`{{
+I'm { even } specialer!
+}}
+
+say 'there';
+
+#`{{
+does {{nesting}} work?
+}}
+
+#`«<
+trying mixed delimiters
+»
+
+my $string = qq<Hooray, arbitrary delimiter!>;
+my $string = qq«Hooray, arbitrary delimiter!»;
+my $string = q <now with whitespace!>;
+my $string = qq<<more strings>>;
+
+my %hash := Hash.new;
+
+=begin pod
+
+Here's some POD!  Wooo
+
+=end pod
+
+=for Testing
+    This is POD (see? role isn't highlighted)
+
+say('this is not!');
+
+say 'Moar code!';
+
+my $don't = 16;
+
+sub don't($x) {
+    !$x
+}
+
+say don't 'foo';
+
+my %hash = (
+    :foo(1),
+);
+
+say %hash<foo>;
+say %hash<<foo>>;
+say %hash«foo»;
+
+say %*hash<foo>;
+say %*hash<<foo>>;
+say %*hash«foo»;
+
+say $<todo>;
+say $<todo>;
+
+for (@A Z @B) -> $a, $b {
+    say $a + $b;
+}
+
+Q:PIR {
+    .loadlib "somelib"
+}
+
+my $longstring = q/
+    lots
+    of
+    text
+/;
+
+my $heredoc = q:to/END_SQL/;
+SELECT * FROM Users
+WHERE first_name = 'Rob'
+END_SQL
+my $hello;
+
+# Fun with regexen
+
+if 'food' ~~ /foo/ {
+    say 'match!'
+}
+
+my $re  = /foo/;
+my $re2 = m/ foo /;
+my $re3 = m:i/ FOO /;
+
+call-a-sub(/ foo /);
+call-a-sub(/ foo \/ bar /);
+
+my $re4    = rx/something | something-else/;
+my $result = ms/regexy stuff/;
+my $sub0   = s/regexy stuff/more stuff/;
+my $sub    = ss/regexy stuff/more stuff/;
+my $trans  = tr/regexy stuff/more stuff/;
+
+my @values = <a b c d>;
+call-sub(<a b c d>);
+call-sub <a b c d>;
+
+my $result = $a < $b;
+
+for <a b c d> -> $letter {
+    say $letter;
+}
+
+sub test-sub {
+    say @_;
+    say $!;
+    say $/;
+    say $0;
+    say $1;
+    say @*ARGS;
+    say $*ARGFILES;
+    say &?BLOCK;
+    say ::?CLASS;
+    say $?CLASS;
+    say @=COMMENT;
+    say %?CONFIG;
+    say $*CWD;
+    say $=data;
+    say %?DEEPMAGIC;
+    say $?DISTRO;
+    say $*DISTRO;
+    say $*EGID;
+    say %*ENV;
+    say $*ERR;
+    say $*EUID;
+    say $*EXECUTABLE_NAME;
+    say $?FILE;
+    say $?GRAMMAR;
+    say $*GID;
+    say $*IN;
+    say @*INC;
+    say %?LANG;
+    say $*LANG;
+    say $?LINE;
+    say %*META-ARGS;
+    say $?MODULE;
+    say %*OPTS;
+    say %*OPT;
+    say $?KERNEL;
+    say $*KERNEL;
+    say $*OUT;
+    say $?PACKAGE;
+    say $?PERL;
+    say $*PERL;
+    say $*PID;
+    say %=pod;
+    say $*PROGRAM_NAME;
+    say %*PROTOCOLS;
+    say ::?ROLE;
+    say $?ROLE;
+    say &?ROUTINE;
+    say $?SCOPE;
+    say $*TZ;
+    say $*UID;
+    say $?USAGE;
+    say $?VM;
+    say $?XVM;
+}
+
+say <a b c>;
+
+my $perl5_re = m:P5/ fo{2} /;
+my $re5      = rx«something | something-else»;
+
+my $M := %*COMPILING<%?OPTIONS><M>;
+
+say $M;
+
+sub regex-name { ... }
+my $pair = role-name => 'foo';
+$pair = rolesque => 'foo';
+
+my sub something(Str:D $value) { ... }
+
+my $s = q«<
+some
+string
+stuff
+»;
+
+my $regex = m«< some chars »;
+# after
+
+say $/<foo><bar>;
+
+roleq;

golden-files/results/perl_syntax-perl6_pl

@@ -0,0 +1,12 @@
+Useless declaration of a has-scoped method in mainline (did you mean 'my regex http-verb'?)
+===SORRY!=== Error while compiling ./input/perl6.pl                      
+Two terms in a row                                                                         
+at ./input/perl6.pl:30                                                                     
+------> <BOL>⏏say 'here';                                               
+    expecting any of:                                                                      
+        postfix                                                                            
+        infix stopper                                                                      
+        infix or meta-infix                                                                
+        statement end                                                                      
+        statement modifier                                                                 
+        statement modifier loop                                                            

tools.py

@@ -405,9 +405,14 @@ def disassemble_pyc(path):
 disassemble_pyc.dependencies = set()
 
 
+def _perl_version(path):
+    stdout, stderr, returncode = _do_command(["perl", "-c", path])
+    return "perl6" if "Perl v6.0.0 required" in stderr else "perl"
+
+
 def perl_syntax(path):
-    return _run_command(["perl", "-c", path])
+    return _run_command([_perl_version(path), "-c", path])
-perl_syntax.dependencies = {"perl"}
+perl_syntax.dependencies = {"perl", "perl6"}
 
 
 def perldoc(path):

tools_test.py

@@ -111,7 +111,8 @@ class ToolsTestCase(unittest.TestCase):
                         [("hi3.cpython-34.pyc", tools.Status.normal)])
 
     def test_perl_syntax(self):
-        self._test_tool(tools.perl_syntax, [("perl.pl", tools.Status.ok)])
+        self._test_tool(tools.perl_syntax, [("perl.pl", tools.Status.ok),
+                                            ("perl6.pl", tools.Status.problem)])
 
     def test_perldoc(self):
         self._test_tool(tools.perldoc,