--- /dev/null
+##############################################################################
+# $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 :