code.delx.au - gnu-emacs/blob - test/indent/perl.perl

   1 #!/usr/bin/perl
   2 # -*- eval: (bug-reference-mode 1) -*-
   3
   4 sub add_funds($) {
   5     return 0;
   6 }
   7
   8 use v5.14;
   9
  10 my $str= <<END;
  11 Hello
  12 END
  13
  14 my $a = $';
  15
  16 my $b=3;
  17
  18 print $str;
  19 if ($c && /====/){xyz;}
  20
  21 print "a" . <<EOF . s/he"llo/th'ere/;
  22 It's a surprise!
  23 EOF
  24
  25 print <<\EOF1 . s/he"llo/th'ere/;
  26 foo
  27 EOF2
  28 bar
  29 EOF1
  30
  31 $config = {
  32     b  =>
  33         [
  34          "123",
  35         ],
  36     c => "123",
  37 };
  38
  39 print <<"EOF1" . <<\EOF2 . s/he"llo/th'ere/;
  40 foo
  41 EOF2
  42 bar
  43 EOF1
  44 bar
  45 EOF2
  46
  47 print $'; # This should not start a string!
  48
  49 print "hello" for /./;
  50
  51 $fileType_filesButNot           # bug#12373?
  52     = join( '|', map { quotemeta($_).'$' } @{$fileType->{filesButNot}} );