test/indent/perl.perl

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