We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 8bec6e0 commit 635fd1bCopy full SHA for 635fd1b
lib/languages/perl5.txt
@@ -0,0 +1,9 @@
1
+package
2
+use strict
3
+use warnings
4
+use v5
5
+use 5
6
+use feature
7
+use Exporter
8
+our @EXPORT
9
+#
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;
10
+ use strict;
11
+ use warnings;
12
+ use feature qw<say>;
13
+ use Exporter qw<import>;
14
+ our @EXPORT_OK = qw<hello>;
15
+
16
+ # test comment
17
+ sub hello {
18
+ return 'Hello, World!';
19
+ }
20
+ CODE
21
+ expected = <<~CODE
22
23
24
25
26
+ assert_equal expected, ExtractSnippet.(code, 'perl5')
27
+ end
28
29
30
+end
0 commit comments