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

   1 ##############################################################################
   2 #      $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/RegularExpressions/RequireBracesForMultiline.run $
   3 #     $Date: 2008-04-12 14:38:38 -0500 (Sat, 12 Apr 2008) $
   4 #   $Author: clonezone $
   5 # $Revision: 2218 $
   6 ##############################################################################
   7
   8 ## name short match regexps
   9 ## failures 0
  10 ## cut
  11
  12 /foo/;
  13 /foo\nbar/;
  14 / bar .* baz /m;
  15 s/foo/
  16   bar
  17  /;
  18
  19 ## name proper delimiters
  20 ## failures 0
  21 ## cut
  22
  23 m{
  24    foo
  25  }x;
  26 m{
  27    foo
  28  };
  29 s{foo
  30   bar}
  31  {baz
  32   fzz};
  33 qr{
  34    foo
  35   };
  36
  37 ## name basic failures
  38 ## failures 4
  39 ## cut
  40
  41 m/
  42  foo
  43  /;
  44 s/
  45  foo
  46  //;
  47 qr/
  48   foo
  49  /;
  50 m#
  51  foo
  52  #;
  53
  54 ## name allow_all_brackets
  55 ## failures 0
  56 ## parms { allow_all_brackets => 1 }
  57 ## cut
  58
  59 m(
  60    foo
  61  )x;
  62 m(
  63    foo
  64  );
  65 s(foo
  66   bar)
  67  (baz
  68   fzz);
  69 qr(
  70    foo
  71    );
  72
  73 m[
  74    foo
  75  ]x;
  76 m[
  77    foo
  78  ];
  79 s[foo
  80   bar]
  81  [baz
  82   fzz];
  83 qr[
  84    foo
  85    ];
  86
  87 m<
  88    foo
  89  >x;
  90 m<
  91    foo
  92  >;
  93 s<foo
  94   bar>
  95  <baz
  96   fzz>;
  97 qr<
  98    foo
  99    >;
 100
 101 #-----------------------------------------------------------------------------
 102 # Local Variables:
 103 #   mode: cperl
 104 #   cperl-indent-level: 4
 105 #   fill-column: 78
 106 #   indent-tabs-mode: nil
 107 #   c-indentation-style: bsd
 108 # End:
 109 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :