third-party/codemirror-3.15/mode/perl/index.html

   1 <!doctype html>
   2 <html>
   3   <head>
   4     <meta charset="utf-8">
   5     <title>CodeMirror: Perl mode</title>
   6     <link rel="stylesheet" href="../../lib/codemirror.css">
   7     <script src="../../lib/codemirror.js"></script>
   8     <script src="perl.js"></script>
   9     <link rel="stylesheet" href="../../doc/docs.css">
  10     <style type="text/css">.CodeMirror {border-top: 1px solid black; border-bottom: 1px solid black;}</style>
  11   </head>
  12   <body>
  13     <h1>CodeMirror: Perl mode</h1>
  14
  15 <div><textarea id="code" name="code">
  16 #!/usr/bin/perl
  17
  18 use Something qw(func1 func2);
  19
  20 # strings
  21 my $s1 = qq'single line';
  22 our $s2 = q(multi-
  23               line);
  24
  25 =item Something
  26         Example.
  27 =cut
  28
  29 my $html=<<'HTML'
  30 <html>
  31 <title>hi!</title>
  32 </html>
  33 HTML
  34
  35 print "first,".join(',', 'second', qq~third~);
  36
  37 if($s1 =~ m[(?<!\s)(l.ne)\z]o) {
  38         $h->{$1}=$$.' predefined variables';
  39         $s2 =~ s/\-line//ox;
  40         $s1 =~ s[
  41                   line ]
  42                 [
  43                   block
  44                 ]ox;
  45 }
  46
  47 1; # numbers and comments
  48
  49 __END__
  50 something...
  51
  52 </textarea></div>
  53
  54     <script>
  55       var editor = CodeMirror.fromTextArea(document.getElementById("code"), {
  56         lineNumbers: true
  57       });
  58     </script>
  59
  60     <p><strong>MIME types defined:</strong> <code>text/x-perl</code>.</p>
  61   </body>
  62 </html>