ELLIOTJS / Perl-Critic-1.101_003 / t / RegularExpressions / RequireBracesForMultiline.run 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109

              
##############################################################################
#      $URL: http://perlcritic.tigris.org/svn/perlcritic/branches/Perl-Critic-PPI-1.204/t/RegularExpressions/RequireBracesForMultiline.run $
#     $Date: 2009-03-07 09:14:51 -0600 (Sat, 07 Mar 2009) $
#   $Author: clonezone $
# $Revision: 3231 $
##############################################################################
## 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 :