##############################################################################
#      $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/RegularExpressions/RequireBracesForMultiline.run $
#     $Date: 2008-04-12 14:38:38 -0500 (Sat, 12 Apr 2008) $
#   $Author: clonezone $
# $Revision: 2218 $
##############################################################################

## name short match regexps
## failures 0
## cut

/foo/;
/foo\nbar/;
/ bar .* baz /m;
s/foo/
  bar
 /;

## name proper delimiters
## failures 0
## cut

m{
   foo
 }x;
m{
   foo
 };
s{foo
  bar}
 {baz
  fzz};
qr{
   foo
  };

## name basic failures
## failures 4
## cut

m/
 foo
 /;
s/
 foo
 //;
qr/
  foo
 /;
m#
 foo
 #;

## name allow_all_brackets
## failures 0
## parms { allow_all_brackets => 1 }
## cut

m(
   foo
 )x;
m(
   foo
 );
s(foo
  bar)
 (baz
  fzz);
qr(
   foo
   );

m[
   foo
 ]x;
m[
   foo
 ];
s[foo
  bar]
 [baz
  fzz];
qr[
   foo
   ];

m<
   foo
 >x;
m<
   foo
 >;
s<foo
  bar>
 <baz
  fzz>;
qr<
   foo
   >;

#-----------------------------------------------------------------------------
# Local Variables:
#   mode: cperl
#   cperl-indent-level: 4
#   fill-column: 78
#   indent-tabs-mode: nil
#   c-indentation-style: bsd
# End:
# ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :