+++ /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 :