git.maemo.org Git - pkg-perl/blob - deb-src/libperl-critic-perl/libperl-critic-perl-1.088/t/ValuesAndExpressions/RequireUpperCaseHeredocTerminator.run

   1 ## name Basic passing
   2 ## failures 0
   3 ## cut
   4
   5 print <<"QUOTE_1";
   6 Four score and seven years ago...
   7 QUOTE_1
   8
   9 #-----------------------------------------------------------------------------
  10
  11 ## name Quoted failure
  12 ## failures 1
  13 ## cut
  14
  15 print <<"endquote";
  16 Four score and seven years ago...
  17 endquote
  18
  19 #-----------------------------------------------------------------------------
  20
  21 ## name Bareword failure
  22 ## failures 1
  23 ## cut
  24
  25 print <<endquote;
  26 Four score and seven years ago...
  27 endquote
  28
  29 #-----------------------------------------------------------------------------
  30
  31 ## name RT #27073: Spaces before HEREDOC token
  32 ## failures 0
  33 ## cut
  34
  35 print <<  'END_QUOTE';
  36 The only thing we have to fear is fear itself...
  37 END_QUOTE
  38
  39
  40 ##############################################################################
  41 #      $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/ValuesAndExpressions/RequireUpperCaseHeredocTerminator.run $
  42 #     $Date: 2008-03-16 17:40:45 -0500 (Sun, 16 Mar 2008) $
  43 #   $Author: clonezone $
  44 # $Revision: 2187 $
  45 ##############################################################################
  46
  47 # Local Variables:
  48 #   mode: cperl
  49 #   cperl-indent-level: 4
  50 #   fill-column: 78
  51 #   indent-tabs-mode: nil
  52 #   c-indentation-style: bsd
  53 # End:
  54 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :