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
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
|
## name Passing with no "use English".
## failures 0
## cut
use strict;
use warnings;
my $doodle_doodle_dee = 'wubba wubba wubba';
#-----------------------------------------------------------------------------
## name Passing single quotes.
## failures 0
## cut
use English '-no_match_vars';
#-----------------------------------------------------------------------------
## name Passing double quotes
## failures 0
## cut
use English "-no_match_vars";
#-----------------------------------------------------------------------------
## name Passing literal quotes.
## failures 0
## cut
use English q/-no_match_vars/;
use English q{-no_match_vars};
use English q(-no_match_vars);
use English q[-no_match_vars];
use English q<-no_match_vars>;
use English q!-no_match_vars!;
use English q#-no_match_vars#;
use English q'-no_match_vars';
use English q"-no_match_vars";
#-----------------------------------------------------------------------------
## name Passing literal quotes with whitespace before delimiter.
## failures 0
## cut
use English q /-no_match_vars/;
use English q {-no_match_vars};
use English q (-no_match_vars);
use English q [-no_match_vars];
use English q <-no_match_vars>;
use English q !-no_match_vars!;
use English q '-no_match_vars';
use English q "-no_match_vars";
#-----------------------------------------------------------------------------
## name Passing interpolating quotes.
## failures 0
## cut
use English qq/-no_match_vars/;
use English qq{-no_match_vars};
use English qq(-no_match_vars);
use English qq[-no_match_vars];
use English qq<-no_match_vars>;
use English qq!-no_match_vars!;
use English qq#-no_match_vars#;
use English qq'-no_match_vars';
use English qq"-no_match_vars";
#-----------------------------------------------------------------------------
## name Passing interpolating quotes with whitespace before delimiter.
## failures 0
## cut
use English qq /-no_match_vars/;
use English qq {-no_match_vars};
use English qq (-no_match_vars);
use English qq [-no_match_vars];
use English qq <-no_match_vars>;
use English qq !-no_match_vars!;
use English qq '-no_match_vars';
use English qq "-no_match_vars";
#-----------------------------------------------------------------------------
## name Passing quotelike words.
## failures 0
## cut
use English qw/ -no_match_vars /;
use English qw{ -no_match_vars };
use English qw( -no_match_vars );
use English qw[ -no_match_vars ];
use English qw< -no_match_vars >;
use English qw! -no_match_vars !;
use English qw# -no_match_vars #;
use English qw' -no_match_vars ';
use English qw" -no_match_vars ";
#-----------------------------------------------------------------------------
## name Passing quotelike words with whitespace before delimiter.
## failures 0
## cut
use English qw / -no_match_vars /;
use English qw { -no_match_vars };
use English qw ( -no_match_vars );
use English qw [ -no_match_vars ];
use English qw < -no_match_vars >;
use English qw ! -no_match_vars !;
use English qw ' -no_match_vars ';
use English qw " -no_match_vars ";
#-----------------------------------------------------------------------------
## name Passing quotelike words with things in addition to -no_match_vars.
## failures 0
## cut
use English qw/ $ERRNO -no_match_vars $EVAL_ERROR /;
#-----------------------------------------------------------------------------
## name Passing parenthesized list.
## failures 0
## cut
use English ( '-no_match_vars' );
#-----------------------------------------------------------------------------
## name Passing parenthesized list with things in addition to -no_match_vars.
## failures 0
## cut
use English ( '$ERRNO', "-no_match_vars", "$EVAL_ERROR" );
#-----------------------------------------------------------------------------
## name Passing unparenthesized list with things in addition to -no_match_vars.
## failures 0
## cut
use English '$ERRNO', "-no_match_vars", "$EVAL_ERROR";
#-----------------------------------------------------------------------------
## name Passing version.
## failures 0
## cut
use English 1.02 '-no_match_vars';
#-----------------------------------------------------------------------------
## name Passing v-string version.
## failures 0
## cut
use English v1.02 '-no_match_vars';
#-----------------------------------------------------------------------------
## name Passing parenthesized list and version.
## failures 0
## cut
use English 1.02 ('-no_match_vars');
#-----------------------------------------------------------------------------
## name Basic failure.
## failures 1
## cut
use English;
#-----------------------------------------------------------------------------
## name Failure with version.
## failures 1
## cut
use English 1.02;
#-----------------------------------------------------------------------------
## name Failure with v-string.
## failures 1
## cut
use English v1.02;
#-----------------------------------------------------------------------------
## name Failure with random garbage.
## failures 2
## cut
use English 'oink oink';
use English qw< blah blah blah >;
#-----------------------------------------------------------------------------
## name Failure with typo that Ovid noticed.
## failures 1
## cut
use English qw(-no_mactch_vars);
#-----------------------------------------------------------------------------
# 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 :
|
