From 5c9bc8a874e4f66aacc7c135db94732fb7f906b1 Mon Sep 17 00:00:00 2001
From: Daniel Mita <noreply@dango.space>
Date: Thu, 27 Oct 2022 14:39:40 +0100
Subject: [PATCH 1/2] Add basic mode checks for perl

---
 lib/languages/perl5.txt      |  9 +++++++++
 test/languages/perl5_test.rb | 30 ++++++++++++++++++++++++++++++
 2 files changed, 39 insertions(+)
 create mode 100644 lib/languages/perl5.txt
 create mode 100644 test/languages/perl5_test.rb

diff --git a/lib/languages/perl5.txt b/lib/languages/perl5.txt
new file mode 100644
index 0000000..4bfab8b
--- /dev/null
+++ b/lib/languages/perl5.txt
@@ -0,0 +1,9 @@
+package
+use strict
+use warnings
+use v5
+use 5
+use feature
+use Exporter
+our @EXPORT
+#
diff --git a/test/languages/perl5_test.rb b/test/languages/perl5_test.rb
new file mode 100644
index 0000000..ca9d91c
--- /dev/null
+++ b/test/languages/perl5_test.rb
@@ -0,0 +1,30 @@
+require "test_helper"
+module SnippetExtractor
+  module Languages
+    class PerlTest < Minitest::Test
+      def test_all
+        code = <<~CODE
+          package HelloWorld;
+          use v5.36;
+          use 5.036;
+          use strict;
+          use warnings;
+          use feature qw<say>;
+          use Exporter qw<import>;
+          our @EXPORT_OK = qw<hello>;
+
+          # test comment
+          sub hello {
+              return 'Hello, World!';
+          }
+        CODE
+        expected = <<~CODE
+          sub hello {
+              return 'Hello, World!';
+          }
+        CODE
+        assert_equal expected, ExtractSnippet.(code, :perl5)
+      end
+    end
+  end
+end

From fe4ad1abe64c1ad3043097e70dc4ee97377e4acd Mon Sep 17 00:00:00 2001
From: Erik Schierboom <erik_schierboom@hotmail.com>
Date: Fri, 28 Oct 2022 13:47:15 +0200
Subject: [PATCH 2/2] Fix rubocop warning

---
 test/languages/perl5_test.rb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/test/languages/perl5_test.rb b/test/languages/perl5_test.rb
index ca9d91c..9483731 100644
--- a/test/languages/perl5_test.rb
+++ b/test/languages/perl5_test.rb
@@ -23,7 +23,7 @@ def test_all
               return 'Hello, World!';
           }
         CODE
-        assert_equal expected, ExtractSnippet.(code, :perl5)
+        assert_equal expected, ExtractSnippet.(code, 'perl5')
       end
     end
   end