1 Check warnings::enabled & warnings::warn
8 print "ok1\n" if ! warnings::enabled() ;
9 print "ok2\n" if ! warnings::enabled("io") ;
22 print "ok1\n" if warnings::enabled() ;
23 print "ok2\n" if warnings::enabled("syntax") ;
26 use warnings 'syntax' ;
35 use warnings 'syntax' ;
36 print "ok1\n" if warnings::enabled() ;
37 print "ok2\n" if ! warnings::enabled("syntax") ;
49 print "ok1\n" if warnings::enabled() ;
50 print "ok2\n" if warnings::enabled("syntax") ;
53 use warnings 'syntax' ;
61 use warnings 'syntax' ;
62 print "ok1\n" if warnings::enabled ;
63 print "ok2\n" if ! warnings::enabled("syntax") ;
64 print "ok3\n" if warnings::enabled("io") ;
79 print "ok1\n" if warnings::enabled ;
80 print "ok2\n" if warnings::enabled("syntax") ;
84 use warnings 'syntax' ;
96 print "ok1\n" if warnings::enabled ;
97 print "ok2\n" if warnings::enabled("syntax") ;
98 print "ok3\n" if ! warnings::enabled("io") ;
102 use warnings 'syntax' ;
115 print "ok1\n" if warnings::enabled ;
116 print "ok2\n" if warnings::enabled("syntax") ;
120 use warnings 'syntax' ;
132 print "ok1\n" if warnings::enabled ;
133 print "ok2\n" if warnings::enabled("syntax") ;
134 print "ok3\n" if ! warnings::enabled("io") ;
138 use warnings 'syntax' ;
150 print "ok1\n" if ! warnings::enabled() ;
151 print "ok2\n" if ! warnings::enabled("io") ;
168 print "ok1\n" if warnings::enabled() ;
169 print "ok2\n" if warnings::enabled("syntax") ;
170 print "ok3\n" if !warnings::enabled("io") ;
173 use warnings 'syntax' ;
174 print "ok4\n" if warnings::enabled() ;
175 print "ok5\n" if warnings::enabled("io") ;
193 print "ok1\n" if warnings::enabled ;
194 print "ok2\n" if warnings::enabled("syntax") ;
198 use warnings 'syntax' ;
200 eval { abc::check() ; };
211 print "ok1\n" if warnings::enabled ;
212 print "ok2\n" if warnings::enabled("syntax") ;
213 print "ok3\n" if ! warnings::enabled("io") ;
217 use warnings 'syntax' ;
219 eval { abc::check() ; } ;
231 print "ok1\n" if warnings::enabled ;
232 print "ok2\n" if warnings::enabled("syntax") ;
236 use warnings 'syntax' ;
238 eval { abc::check() ; } ;
249 print "ok1\n" if warnings::enabled ;
250 print "ok2\n" if warnings::enabled("syntax") ;
251 print "ok3\n" if warnings::enabled("io") ;
255 use warnings 'syntax' ;
257 eval { use warnings 'io' ; abc::check() ; };
272 print "ok1\n" if warnings::enabled ;
273 print "ok2\n" if warnings::enabled("syntax") ;
274 print "ok3\n" if ! warnings::enabled("io") ;
278 use warnings 'syntax' ;
280 sub fred { abc::check() }
292 print "ok1\n" if ! warnings::enabled ;
296 use warnings 'syntax' ;
298 sub fred { no warnings ; abc::check() }
306 use warnings 'misc' ;
308 print "ok1\n" if warnings::enabled ;
309 print "ok2\n" if warnings::enabled("syntax") ;
310 print "ok3\n" if warnings::enabled("io") ;
311 print "ok4\n" if ! warnings::enabled("misc") ;
315 use warnings 'syntax' ;
317 sub fred { use warnings 'io' ; abc::check() }
326 # check warnings::warn
328 eval { warnings::warn() } ;
330 eval { warnings::warn("fred") } ;
333 Usage: warnings::warn('category', 'message') at - line 4
334 Usage: warnings::warn('category', 'message') at - line 6
339 use warnings 'misc' ;
340 sub check { warnings::warn("io", "hello") }
352 use warnings 'misc' ;
353 sub check { warnings::warn("misc", "hello") }
365 use warnings 'misc' ;
366 sub check { warnings::warn("io", "hello") }
369 use warnings qw( FATAL deprecated ) ;
371 eval { abc::check() ; } ;
380 use warnings 'misc' ;
381 sub check { warnings::warn("io", "hello") }
384 use warnings qw( FATAL io ) ;
386 eval { abc::check() ; } ;