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

   1 ## name Basic passing
   2 ## failures 0
   3 ## cut
   4
   5 $x = "foo";
   6 $x = 'foo';
   7 $x = q{foo};
   8 $x = qq{foo};
   9 $x = "foo\n";
  10 $x = "foo\r";
  11
  12 $x = <<'EOF';
  13 1
  14 2
  15 EOF
  16
  17 $x = <<"EOF";
  18 1
  19 2
  20 EOF
  21
  22 #-----------------------------------------------------------------------------
  23
  24 ## name Basic failure
  25 ## failures 4
  26 ## cut
  27
  28 $x = "1
  29 2";
  30 $x = '1
  31 2';
  32 $x = qq{1
  33 2};
  34 $x = q{1
  35 2};
  36
  37 #-----------------------------------------------------------------------------
  38
  39 ## name Bad whitespace usage, but allowed
  40 ## failures 0
  41 ## cut
  42
  43 $x = q
  44 <1>;
  45
  46 $x = qq
  47 <1>;
  48
  49 #-----------------------------------------------------------------------------
  50
  51 ##############################################################################
  52 #      $URL
  53 #     $Date: 2008-03-16 17:40:45 -0500 (Sun, 16 Mar 2008) $
  54 #   $Author: clonezone $
  55 # $Revision: 2187 $
  56 ##############################################################################
  57
  58 # Local Variables:
  59 #   mode: cperl
  60 #   cperl-indent-level: 4
  61 #   fill-column: 78
  62 #   indent-tabs-mode: nil
  63 #   c-indentation-style: bsd
  64 # End:
  65 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :