Lines Matching full:strict

3 # Most of the strict effects are tested for in t/re/reg_mesgs.t
13 use strict;
28         use re 'strict';
31         BEGIN { is(scalar @w, 1, 'use re "strict" turns on warnings'); }
35         no re 'strict';
38         BEGIN { is(scalar @w, 0, 'no re "strict" restores warnings state'); }
43     BEGIN { is(scalar @w, 0, 'dropping out of "strict" scope reverts warnings default'); }
46         use re 'strict';
49         BEGIN { is(scalar @w, 1, 'use re "strict" turns on warnings'); }
51         no re 'strict';
54         BEGIN { is(scalar @w, 0, 'turning off "strict" scope reverts warnings default'); }
63         use re 'strict';
66         BEGIN { is(scalar @w, 1, 'use re "strict" keeps warnings on'); }
68         no re 'strict';
71 …BEGIN { is(scalar @w, 1, 'turning off "strict" scope doesn\'t affect warnings that were already on…