1 Check warnings::enabled & warnings::warn
8 print "ok1\n" if ! warnings::enabled('all') ;
9 print "ok2\n" if ! warnings::enabled("io") ;
22 print "ok1\n" if !warnings::enabled('all') ;
23 print "ok2\n" if warnings::enabled("syntax") ;
26 use warnings 'syntax' ;
35 use warnings 'syntax' ;
36 print "ok1\n" if warnings::enabled('io') ;
37 print "ok2\n" if ! warnings::enabled("syntax") ;
49 print "ok1\n" if !warnings::enabled('all') ;
50 print "ok2\n" if warnings::enabled("syntax") ;
53 use warnings 'syntax' ;
61 use warnings 'syntax' ;
62 print "ok1\n" if ! warnings::enabled('all') ;
63 print "ok2\n" if ! warnings::enabled("syntax") ;
64 print "ok3\n" if warnings::enabled("io") ;
79 print "ok1\n" if !warnings::enabled('all') ;
80 print "ok2\n" if warnings::enabled("syntax") ;
84 use warnings 'syntax' ;
96 print "ok1\n" if ! warnings::enabled('all') ;
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('all') ;
116 print "ok2\n" if warnings::enabled("syntax") ;
120 use warnings 'syntax' ;
132 print "ok1\n" if ! warnings::enabled('all') ;
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('all') ;
151 print "ok2\n" if ! warnings::enabled("io") ;
169 print "ok1\n" if ! warnings::enabled('all') ;
170 print "ok2\n" if warnings::enabled("syntax") ;
171 print "ok3\n" if !warnings::enabled("io") ;
174 use warnings 'syntax' ;
175 print "ok4\n" if !warnings::enabled('all') ;
176 print "ok5\n" if warnings::enabled("io") ;
194 print "ok1\n" if !warnings::enabled('all') ;
195 print "ok2\n" if warnings::enabled("syntax") ;
199 use warnings 'syntax' ;
201 eval { abc::check() ; };
212 print "ok1\n" if ! warnings::enabled('all') ;
213 print "ok2\n" if warnings::enabled("syntax") ;
214 print "ok3\n" if ! warnings::enabled("io") ;
218 use warnings 'syntax' ;
220 eval { abc::check() ; } ;
232 print "ok1\n" if !warnings::enabled('all') ;
233 print "ok2\n" if warnings::enabled("syntax") ;
237 use warnings 'syntax' ;
239 eval { abc::check() ; } ;
250 print "ok1\n" if !warnings::enabled('all') ;
251 print "ok2\n" if warnings::enabled("syntax") ;
252 print "ok3\n" if warnings::enabled("io") ;
256 use warnings 'syntax' ;
258 eval { use warnings 'io' ; abc::check() ; };
273 print "ok1\n" if ! warnings::enabled('all') ;
274 print "ok2\n" if warnings::enabled("syntax") ;
275 print "ok3\n" if ! warnings::enabled("io") ;
279 use warnings 'syntax' ;
281 sub fred { abc::check() }
293 print "ok1\n" if ! warnings::enabled('all') ;
297 use warnings 'syntax' ;
299 sub fred { no warnings ; abc::check() }
307 use warnings 'misc' ;
309 print "ok1\n" if ! warnings::enabled('all') ;
310 print "ok2\n" if warnings::enabled("syntax") ;
311 print "ok3\n" if warnings::enabled("io") ;
312 print "ok4\n" if ! warnings::enabled("misc") ;
316 use warnings 'syntax' ;
318 sub fred { use warnings 'io' ; abc::check() }
327 # check warnings::warn
329 eval { warnings::warn() } ;
331 eval { warnings::warn("fred", "joe") } ;
334 Usage: warnings::warn([category,] 'message') at - line 4
335 Unknown warnings category 'fred' at - line 6
338 # check warnings::warnif
340 eval { warnings::warnif() } ;
342 eval { warnings::warnif("fred", "joe") } ;
345 Usage: warnings::warnif([category,] 'message') at - line 4
346 Unknown warnings category 'fred' at - line 6
351 use warnings 'misc' ;
352 sub check { warnings::warn("io", "hello") }
364 use warnings 'misc' ;
365 sub check { warnings::warn("misc", "hello") }
377 use warnings 'misc' ;
378 sub check { warnings::warn("io", "hello") }
381 use warnings qw( FATAL deprecated ) ;
383 eval { abc::check() ; } ;
387 eval {...} called at - line 3
393 use warnings 'misc' ;
394 sub check { warnings::warn("io", "hello") }
397 use warnings qw( FATAL io ) ;
399 eval { abc::check() ; } ;
403 eval {...} called at - line 3
410 print "ok1\n" if warnings::enabled("io") ;
411 print "ok2\n" if warnings::enabled("all") ;
424 print "ok1\n" if !warnings::enabled("io") ;
425 print "ok2\n" if !warnings::enabled("all") ;
439 print "ok\n" if ! warnings::enabled() ;
443 use warnings 'syntax' ;
447 package 'abc' not registered for warnings at abc.pm line 4
454 warnings::warn("fred") ;
458 use warnings 'syntax' ;
462 package 'abc' not registered for warnings at abc.pm line 4
469 warnings::warnif("fred") ;
473 use warnings 'syntax' ;
477 package 'abc' not registered for warnings at abc.pm line 4
483 use warnings::register ;
485 print "ok1\n" if warnings::enabled ;
486 print "ok2\n" if warnings::enabled("syntax") ;
487 print "ok3\n" if !warnings::enabled("io") ;
491 use warnings 'syntax' ;
504 use warnings::register ;
506 print "ok1\n" if !warnings::enabled ;
507 print "ok2\n" if warnings::enabled("syntax") ;
508 print "ok3\n" if !warnings::enabled("io") ;
512 use warnings 'syntax' ;
524 use warnings::register ;
526 print "ok1\n" if warnings::enabled ;
527 print "ok2\n" if warnings::enabled("syntax") ;
531 use warnings 'syntax' ;
534 eval { abc::check() ; };
544 use warnings::register ;
546 print "ok1\n" if !warnings::enabled ;
547 print "ok2\n" if warnings::enabled("syntax") ;
548 print "ok3\n" if !warnings::enabled("io") ;
552 use warnings 'syntax' ;
554 eval { abc::check() ; } ;
565 use warnings::register ;
567 print "ok1\n" if warnings::enabled ;
568 print "ok2\n" if warnings::enabled("syntax") ;
569 print "ok3\n" if !warnings::enabled("io") ;
573 use warnings 'syntax' ;
576 sub fred { abc::check() }
587 use warnings::register ;
589 print "ok1\n" if ! warnings::enabled ;
593 use warnings 'syntax' ;
595 sub fred { no warnings ; abc::check() }
603 use warnings 'misc' ;
604 use warnings::register;
606 print "ok1\n" if warnings::enabled ;
607 print "ok2\n" if warnings::enabled("syntax") ;
608 print "ok3\n" if warnings::enabled("io") ;
609 print "ok4\n" if ! warnings::enabled("misc") ;
613 use warnings 'syntax' ;
616 sub fred { use warnings 'io' ; abc::check() }
627 use warnings 'misc' ;
628 use warnings::register;
629 sub check { warnings::warn("hello") }
641 use warnings::register;
642 sub check { warnings::warn("hello") }
653 use warnings::register ;
654 sub check { warnings::warn("hello") }
658 use warnings qw( FATAL deprecated ) ;
659 eval { abc::check() ; } ;
663 eval {...} called at - line 3
669 use warnings::register ;
670 sub check { warnings::warn("hello") }
674 use warnings qw( FATAL abc ) ;
675 eval { abc::check() ; } ;
679 eval {...} called at - line 3
686 use warnings::register ;
688 print "ok1\n" if warnings::enabled() ;
689 print "ok2\n" if warnings::enabled("io") ;
690 print "ok3\n" if warnings::enabled("all") ;
706 use warnings::register ;
708 print "ok1\n" if !warnings::enabled() ;
709 print "ok2\n" if !warnings::enabled("io") ;
710 print "ok3\n" if !warnings::enabled("all") ;
726 use warnings::register ;
728 print "ok1\n" if warnings::enabled() ;
729 print "ok2\n" if warnings::enabled("io") ;
730 print "ok3\n" if warnings::enabled("all") ;
746 use warnings::register ;
748 print "ok1\n" if !warnings::enabled() ;
749 print "ok2\n" if !warnings::enabled("io") ;
750 print "ok3\n" if !warnings::enabled("all") ;
766 use warnings::register ;
768 print "ok1\n" if !warnings::enabled() ;
769 print "ok2\n" if !warnings::enabled("io") ;
770 print "ok3\n" if !warnings::enabled("all") ;
771 warnings::warnif("my message 1") ;
772 warnings::warnif('abc', "my message 2") ;
773 warnings::warnif('io', "my message 3") ;
774 warnings::warnif('all', "my message 4") ;
791 use warnings::register ;
793 print "abc self" . (warnings::enabled() ? "" : " not") . " enabled\n" ;
794 print "abc def" . (warnings::enabled('def') ? "" : " not") . " enabled\n" ;
795 print "abc all" . (warnings::enabled('all') ? "" : " not") . " enabled\n" ;
801 use warnings::register ;
803 print "def self" . (warnings::enabled() ? "" : " not") . " enabled\n" ;
804 print "def abc" . (warnings::enabled('abc') ? "" : " not") . " enabled\n" ;
805 print "def all" . (warnings::enabled('all') ? "" : " not") . " enabled\n" ;
874 use warnings::register ;
876 print "ok1\n" if warnings::enabled() ;
877 print "ok2\n" if warnings::enabled("io") ;
878 print "ok3\n" if warnings::enabled("all") ;
893 use warnings::register ;
895 print "ok1\n" if !warnings::enabled() ;
896 print "ok2\n" if !warnings::enabled("io") ;
897 print "ok3\n" if !warnings::enabled("all") ;
914 use warnings::register ;
916 print "ok1\n" if !warnings::enabled() ;
917 print "ok2\n" if !warnings::enabled("io") ;
918 print "ok3\n" if !warnings::enabled("all") ;
919 warnings::warnif("my message 1") ;
920 warnings::warnif('abc', "my message 2") ;
921 warnings::warnif('io', "my message 3") ;
922 warnings::warnif('all', "my message 4") ;
940 use warnings::register ;
942 print "ok1\n" if !warnings::enabled() ;
943 print "ok2\n" if !warnings::enabled("io") ;
944 print "ok3\n" if !warnings::enabled("all") ;
963 use warnings::register ;
965 print "ok1\n" if warnings::enabled() ;
966 print "ok2\n" if !warnings::enabled("io") ;
967 print "ok3\n" if !warnings::enabled("all") ;
968 print "ok4\n" if warnings::enabled("abc") ;
969 warnings::warn("my message 1") ;
970 warnings::warnif("my message 2") ;
971 warnings::warnif('abc', "my message 3") ;
972 warnings::warnif('io', "my message 4") ;
973 warnings::warnif('all', "my message 5") ;
975 sub in2 { no warnings ; check() }
976 sub in1 { no warnings ; in2() }
987 my message 1 at - line 3
988 my message 2 at - line 3
989 my message 3 at - line 3
995 use warnings::register ;
997 print "ok1\n" if warnings::enabled() ;
998 print "ok2\n" if !warnings::enabled("io") ;
999 print "ok3\n" if !warnings::enabled("all") ;
1000 print "ok4\n" if warnings::enabled("def") ;
1001 warnings::warn("my message 1") ;
1002 warnings::warnif("my message 2") ;
1003 warnings::warnif('def', "my message 3") ;
1004 warnings::warnif('io', "my message 4") ;
1005 warnings::warnif('all', "my message 5") ;
1007 sub in2 { no warnings ; check() }
1008 sub in1 { no warnings ; in2() }
1015 sub in1 { def::in1() ; }
1026 my message 1 at abc.pm line 5
1027 abc::in1() called at - line 3
1028 my message 2 at abc.pm line 5
1029 abc::in1() called at - line 3
1030 my message 3 at abc.pm line 5
1031 abc::in1() called at - line 3
1038 use warnings::register ;
1040 @ISA = qw( Exporter ) ;
1041 @EXPORT = qw( in1 ) ;
1043 print "ok1\n" if warnings::enabled() ;
1044 print "ok2\n" if !warnings::enabled("io") ;
1045 print "ok3\n" if !warnings::enabled("all") ;
1046 print "ok4\n" if warnings::enabled("abc") ;
1047 print "ok5\n" if !warnings::enabled("def") ;
1048 warnings::warn("my message 1") ;
1049 warnings::warnif("my message 2") ;
1050 warnings::warnif('abc', "my message 3") ;
1051 warnings::warnif('def', "my message 4") ;
1052 warnings::warnif('io', "my message 5") ;
1053 warnings::warnif('all', "my message 6") ;
1055 sub in2 { no warnings ; check() }
1056 sub in1 { no warnings ; in2() }
1060 use warnings::register ;
1074 my message 1 at - line 4
1075 my message 3 at - line 4
1081 use warnings::register ;
1092 print "ok1\n" if !warnings::enabled() ;
1093 print "ok2\n" if !warnings::enabled("io") ;
1094 print "ok3\n" if !warnings::enabled("all") ;
1095 print "ok4\n" if warnings::enabled("abc") ;
1096 print "ok5\n" if !warnings::enabled("def") ;
1097 print "ok6\n" if warnings::enabled($self) ;
1099 warnings::warn("my message 1") ;
1100 warnings::warn($self, "my message 2") ;
1102 warnings::warnif("my message 3") ;
1103 warnings::warnif('abc', "my message 4") ;
1104 warnings::warnif('def', "my message 5") ;
1105 warnings::warnif('io', "my message 6") ;
1106 warnings::warnif('all', "my message 7") ;
1107 warnings::warnif($self, "my message 8") ;
1125 use warnings::register ;
1151 my message 1 at - line 5
1152 my message 2 at - line 5
1153 my message 4 at - line 5
1154 my message 8 at - line 5
1161 my message 1 at - line 8
1162 my message 2 at - line 8
1163 my message 4 at - line 8