CodeMirror: Perl mode

1
#!/usr/bin/perl
2
 
3
use Something qw(func1 func2);
4
 
5
# strings
6
my $s1 = qq'single line';
7
our $s2 = q(multi-
8
              line);
9
 
10
=item Something
11
    Example.
12
=cut
13
 
14
my $html=<<'HTML'
15
<html>
16
<title>hi!</title>
17
</html>
18
HTML
19
 
20
print "first,".join(',', 'second', qq~third~);
21
 
22
if($s1 =~ m[(?<!\s)(l.ne)\z]o) {
23
    $h->{$1}=$$.' predefined variables';
24
    $s2 =~ s/\-line//ox;
25
    $s1 =~ s[
26
          line ]
27
        [
28
          block
29
        ]ox;
30
}
31
 
32
1; # numbers and comments
33
 
34
__END__
35
something...
36
 
37
 
 
 

MIME types defined: text/x-perl.