summaryrefslogtreecommitdiff
path: root/codemirror_ui/lib/CodeMirror-2.3/mode/perl/index.html
diff options
context:
space:
mode:
Diffstat (limited to 'codemirror_ui/lib/CodeMirror-2.3/mode/perl/index.html')
-rw-r--r--codemirror_ui/lib/CodeMirror-2.3/mode/perl/index.html62
1 files changed, 62 insertions, 0 deletions
diff --git a/codemirror_ui/lib/CodeMirror-2.3/mode/perl/index.html b/codemirror_ui/lib/CodeMirror-2.3/mode/perl/index.html
new file mode 100644
index 0000000..5ef55d3
--- /dev/null
+++ b/codemirror_ui/lib/CodeMirror-2.3/mode/perl/index.html
@@ -0,0 +1,62 @@
+<!doctype html>
+<html>
+ <head>
+ <title>CodeMirror: Perl mode</title>
+ <link rel="stylesheet" href="../../lib/codemirror.css">
+ <script src="../../lib/codemirror.js"></script>
+ <script src="perl.js"></script>
+ <link rel="stylesheet" href="../../doc/docs.css">
+ <style type="text/css">.CodeMirror {border-top: 1px solid black; border-bottom: 1px solid black;}</style>
+ </head>
+ <body>
+ <h1>CodeMirror: Perl mode</h1>
+
+<div><textarea id="code" name="code">
+#!/usr/bin/perl
+
+use Something qw(func1 func2);
+
+# strings
+my $s1 = qq'single line';
+our $s2 = q(multi-
+ line);
+
+=item Something
+ Example.
+=cut
+
+my $html=<<'HTML'
+<html>
+<title>hi!</title>
+</html>
+HTML
+
+print "first,".join(',', 'second', qq~third~);
+
+if($s1 =~ m[(?<!\s)(l.ne)\z]o) {
+ $h->{$1}=$$.' predefined variables';
+ $s2 =~ s/\-line//ox;
+ $s1 =~ s[
+ line ]
+ [
+ block
+ ]ox;
+}
+
+1; # numbers and comments
+
+__END__
+something...
+
+</textarea></div>
+
+ <script>
+ var editor = CodeMirror.fromTextArea(document.getElementById("code"), {
+ lineNumbers: true,
+ matchBrackets: true
+ });
+ </script>
+
+ <p><strong>MIME types defined:</strong> <code>text/x-perl</code>.</p>
+ </body>
+</html>