1N/ACheck warnings::enabled & warnings::warn

1N/A

1N/A__END__

1N/A

1N/A--FILE-- abc.pm

1N/Apackage abc ;

1N/Ause warnings "io" ;

1N/Aprint "ok1\n" if ! warnings::enabled('all') ;

1N/Aprint "ok2\n" if ! warnings::enabled("io") ;

1N/A1;

1N/A--FILE--

1N/Ano warnings;

1N/Ause abc ;

1N/AEXPECT

1N/Aok1

1N/Aok2

1N/A########

1N/A

1N/A--FILE-- abc.pm

1N/Apackage abc ;

1N/Ano warnings ;

1N/Aprint "ok1\n" if !warnings::enabled('all') ;

1N/Aprint "ok2\n" if warnings::enabled("syntax") ;

1N/A1;

1N/A--FILE--

1N/Ause warnings 'syntax' ;

1N/Ause abc ;

1N/AEXPECT

1N/Aok1

1N/Aok2

1N/A########

1N/A

1N/A--FILE-- abc.pm

1N/Apackage abc ;

1N/Ause warnings 'syntax' ;

1N/Aprint "ok1\n" if warnings::enabled('io') ;

1N/Aprint "ok2\n" if ! warnings::enabled("syntax") ;

1N/A1;

1N/A--FILE--

1N/Ause warnings 'io' ;

1N/Ause abc ;

1N/AEXPECT

1N/Aok1

1N/Aok2

1N/A########

1N/A

1N/A--FILE-- abc

1N/Ano warnings ;

1N/Aprint "ok1\n" if !warnings::enabled('all') ;

1N/Aprint "ok2\n" if warnings::enabled("syntax") ;

1N/A1;

1N/A--FILE--

1N/Ause warnings 'syntax' ;

1N/Arequire "abc" ;

1N/AEXPECT

1N/Aok1

1N/Aok2

1N/A########

1N/A

1N/A--FILE-- abc

1N/Ause warnings 'syntax' ;

1N/Aprint "ok1\n" if ! warnings::enabled('all') ;

1N/Aprint "ok2\n" if ! warnings::enabled("syntax") ;

1N/Aprint "ok3\n" if warnings::enabled("io") ;

1N/A1;

1N/A--FILE--

1N/Ause warnings 'io' ;

1N/Arequire "abc" ;

1N/AEXPECT

1N/Aok1

1N/Aok2

1N/Aok3

1N/A########

1N/A

1N/A--FILE-- abc.pm

1N/Apackage abc ;

1N/Ano warnings ;

1N/Asub check {

1N/A print "ok1\n" if !warnings::enabled('all') ;

1N/A print "ok2\n" if warnings::enabled("syntax") ;

1N/A}

1N/A1;

1N/A--FILE--

1N/Ause warnings 'syntax' ;

1N/Ause abc ;

1N/Aabc::check() ;

1N/AEXPECT

1N/Aok1

1N/Aok2

1N/A########

1N/A

1N/A--FILE-- abc.pm

1N/Apackage abc ;

1N/Ause warnings 'io' ;

1N/Asub check {

1N/A print "ok1\n" if ! warnings::enabled('all') ;

1N/A print "ok2\n" if warnings::enabled("syntax") ;

1N/A print "ok3\n" if ! warnings::enabled("io") ;

1N/A}

1N/A1;

1N/A--FILE--

1N/Ause warnings 'syntax' ;

1N/Ause abc ;

1N/Aabc::check() ;

1N/AEXPECT

1N/Aok1

1N/Aok2

1N/Aok3

1N/A########

1N/A

1N/A--FILE-- abc

1N/Apackage abc ;

1N/Ano warnings ;

1N/Asub check {

1N/A print "ok1\n" if !warnings::enabled('all') ;

1N/A print "ok2\n" if warnings::enabled("syntax") ;

1N/A}

1N/A1;

1N/A--FILE--

1N/Ause warnings 'syntax' ;

1N/Arequire "abc" ;

1N/Aabc::check() ;

1N/AEXPECT

1N/Aok1

1N/Aok2

1N/A########

1N/A

1N/A--FILE-- abc

1N/Apackage abc ;

1N/Ause warnings 'io' ;

1N/Asub check {

1N/A print "ok1\n" if ! warnings::enabled('all') ;

1N/A print "ok2\n" if warnings::enabled("syntax") ;

1N/A print "ok3\n" if ! warnings::enabled("io") ;

1N/A}

1N/A1;

1N/A--FILE--

1N/Ause warnings 'syntax' ;

1N/Arequire "abc" ;

1N/Aabc::check() ;

1N/AEXPECT

1N/Aok1

1N/Aok2

1N/Aok3

1N/A########

1N/A

1N/A--FILE-- abc.pm

1N/Apackage abc ;

1N/Ause warnings "io" ;

1N/Aprint "ok1\n" if ! warnings::enabled('all') ;

1N/Aprint "ok2\n" if ! warnings::enabled("io") ;

1N/A1;

1N/A--FILE-- def.pm

1N/Apackage def;

1N/Ano warnings;

1N/Ause abc ;

1N/A1;

1N/A--FILE--

1N/Ause warnings;

1N/Ause def ;

1N/AEXPECT

1N/Aok1

1N/Aok2

1N/A########

1N/A

1N/A--FILE-- abc.pm

1N/Apackage abc ;

1N/Ano warnings ;

1N/Aprint "ok1\n" if ! warnings::enabled('all') ;

1N/Aprint "ok2\n" if warnings::enabled("syntax") ;

1N/Aprint "ok3\n" if !warnings::enabled("io") ;

1N/A1;

1N/A--FILE-- def.pm

1N/Ause warnings 'syntax' ;

1N/Aprint "ok4\n" if !warnings::enabled('all') ;

1N/Aprint "ok5\n" if warnings::enabled("io") ;

1N/Ause abc ;

1N/A1;

1N/A--FILE--

1N/Ause warnings 'io' ;

1N/Ause def ;

1N/AEXPECT

1N/Aok1

1N/Aok2

1N/Aok3

1N/Aok4

1N/Aok5

1N/A########

1N/A

1N/A--FILE-- abc.pm

1N/Apackage abc ;

1N/Ano warnings ;

1N/Asub check {

1N/A print "ok1\n" if !warnings::enabled('all') ;

1N/A print "ok2\n" if warnings::enabled("syntax") ;

1N/A}

1N/A1;

1N/A--FILE--

1N/Ause warnings 'syntax' ;

1N/Ause abc ;

1N/Aeval {

1N/A abc::check() ;

1N/A};

1N/Aprint $@ ;

1N/AEXPECT

1N/Aok1

1N/Aok2

1N/A########

1N/A

1N/A--FILE-- abc.pm

1N/Apackage abc ;

1N/Ause warnings 'io' ;

1N/Asub check {

1N/A print "ok1\n" if ! warnings::enabled('all') ;

1N/A print "ok2\n" if warnings::enabled("syntax") ;

1N/A print "ok3\n" if ! warnings::enabled("io") ;

1N/A}

1N/A1;

1N/A--FILE--

1N/Ause warnings 'syntax' ;

1N/Ause abc ;

1N/Aeval {

1N/A abc::check() ;

1N/A } ;

1N/Aprint $@ ;

1N/AEXPECT

1N/Aok1

1N/Aok2

1N/Aok3

1N/A########

1N/A

1N/A--FILE-- abc

1N/Apackage abc ;

1N/Ano warnings ;

1N/Asub check {

1N/A print "ok1\n" if !warnings::enabled('all') ;

1N/A print "ok2\n" if warnings::enabled("syntax") ;

1N/A}

1N/A1;

1N/A--FILE--

1N/Ause warnings 'syntax' ;

1N/Arequire "abc" ;

1N/Aeval {

1N/A abc::check() ;

1N/A } ;

1N/Aprint $@ ;

1N/AEXPECT

1N/Aok1

1N/Aok2

1N/A########

1N/A

1N/A--FILE-- abc

1N/Apackage abc ;

1N/Ause warnings 'io' ;

1N/Asub check {

1N/A print "ok1\n" if !warnings::enabled('all') ;

1N/A print "ok2\n" if warnings::enabled("syntax") ;

1N/A print "ok3\n" if warnings::enabled("io") ;

1N/A}

1N/A1;

1N/A--FILE--

1N/Ause warnings 'syntax' ;

1N/Arequire "abc" ;

1N/Aeval {

1N/A use warnings 'io' ;

1N/A abc::check() ;

1N/A};

1N/Aabc::check() ;

1N/Aprint $@ ;

1N/AEXPECT

1N/Aok1

1N/Aok2

1N/Aok3

1N/Aok1

1N/Aok2

1N/A########

1N/A

1N/A--FILE-- abc.pm

1N/Apackage abc ;

1N/Ause warnings 'io' ;

1N/Asub check {

1N/A print "ok1\n" if ! warnings::enabled('all') ;

1N/A print "ok2\n" if warnings::enabled("syntax") ;

1N/A print "ok3\n" if ! warnings::enabled("io") ;

1N/A}

1N/A1;

1N/A--FILE--

1N/Ause warnings 'syntax' ;

1N/Ause abc ;

1N/Asub fred { abc::check() }

1N/Afred() ;

1N/AEXPECT

1N/Aok1

1N/Aok2

1N/Aok3

1N/A########

1N/A

1N/A--FILE-- abc.pm

1N/Apackage abc ;

1N/Ause warnings 'io' ;

1N/Asub check {

1N/A print "ok1\n" if ! warnings::enabled('all') ;

1N/A}

1N/A1;

1N/A--FILE--

1N/Ause warnings 'syntax' ;

1N/Ause abc ;

1N/Asub fred { no warnings ; abc::check() }

1N/Afred() ;

1N/AEXPECT

1N/Aok1

1N/A########

1N/A

1N/A--FILE-- abc.pm

1N/Apackage abc ;

1N/Ause warnings 'misc' ;

1N/Asub check {

1N/A print "ok1\n" if ! warnings::enabled('all') ;

1N/A print "ok2\n" if warnings::enabled("syntax") ;

1N/A print "ok3\n" if warnings::enabled("io") ;

1N/A print "ok4\n" if ! warnings::enabled("misc") ;

1N/A}

1N/A1;

1N/A--FILE--

1N/Ause warnings 'syntax' ;

1N/Ause abc ;

1N/Asub fred { use warnings 'io' ; abc::check() }

1N/Afred() ;

1N/AEXPECT

1N/Aok1

1N/Aok2

1N/Aok3

1N/Aok4

1N/A########

1N/A

1N/A# check warnings::warn

1N/Ause warnings ;

1N/Aeval {

1N/A warnings::warn()

1N/A } ;

1N/Aprint $@ ;

1N/Aeval {

1N/A warnings::warn("fred", "joe")

1N/A } ;

1N/Aprint $@ ;

1N/AEXPECT

1N/AUsage: warnings::warn([category,] 'message') at - line 5

1N/AUnknown warnings category 'fred' at - line 9

1N/A########

1N/A

1N/A# check warnings::warnif

1N/Ause warnings ;

1N/Aeval {

1N/A warnings::warnif()

1N/A} ;

1N/Aprint $@ ;

1N/Aeval {

1N/A warnings::warnif("fred", "joe")

1N/A} ;

1N/Aprint $@ ;

1N/AEXPECT

1N/AUsage: warnings::warnif([category,] 'message') at - line 5

1N/AUnknown warnings category 'fred' at - line 9

1N/A########

1N/A

1N/A--FILE-- abc.pm

1N/Apackage abc ;

1N/Ause warnings 'misc' ;

1N/Asub check { warnings::warn("io", "hello") }

1N/A1;

1N/A--FILE--

1N/Ause warnings "io" ;

1N/Ause abc;

1N/Aabc::check() ;

1N/AEXPECT

1N/Ahello at - line 3

1N/A########

1N/A

1N/A--FILE-- abc.pm

1N/Apackage abc ;

1N/Ause warnings 'misc' ;

1N/Asub check { warnings::warn("misc", "hello") }

1N/A1;

1N/A--FILE--

1N/Ause warnings "io" ;

1N/Ause abc;

1N/Aabc::check() ;

1N/AEXPECT

1N/Ahello at - line 3

1N/A########

1N/A

1N/A--FILE-- abc.pm

1N/Apackage abc ;

1N/Ause warnings 'misc' ;

1N/Asub check { warnings::warn("io", "hello") }

1N/A1;

1N/A--FILE--

1N/Ause warnings qw( FATAL deprecated ) ;

1N/Ause abc;

1N/Aeval {

1N/A abc::check() ;

1N/A } ;

1N/Aprint "[[$@]]\n";

1N/AEXPECT

1N/Ahello at - line 4

1N/A[[]]

1N/A########

1N/A

1N/A--FILE-- abc.pm

1N/Apackage abc ;

1N/Ause warnings 'misc' ;

1N/Asub check { warnings::warn("io", "hello") }

1N/A1;

1N/A--FILE--

1N/Ause warnings qw( FATAL io ) ;

1N/Ause abc;

1N/Aeval {

1N/A abc::check() ;

1N/A} ;

1N/Aprint "[[$@]]\n";

1N/AEXPECT

1N/A[[hello at - line 4

1N/A]]

1N/A########

1N/A-W

1N/A--FILE-- abc.pm

1N/Apackage abc ;

1N/Ause warnings "io" ;

1N/Aprint "ok1\n" if warnings::enabled("io") ;

1N/Aprint "ok2\n" if warnings::enabled("all") ;

1N/A1;

1N/A--FILE--

1N/Ano warnings;

1N/Ause abc ;

1N/AEXPECT

1N/Aok1

1N/Aok2

1N/A########

1N/A-X

1N/A--FILE-- abc.pm

1N/Apackage abc ;

1N/Ause warnings "io" ;

1N/Aprint "ok1\n" if !warnings::enabled("io") ;

1N/Aprint "ok2\n" if !warnings::enabled("all") ;

1N/A1;

1N/A--FILE--

1N/Ause warnings;

1N/Ause abc ;

1N/AEXPECT

1N/Aok1

1N/Aok2

1N/A########

1N/A

1N/A--FILE-- abc.pm

1N/Apackage abc ;

1N/Ano warnings ;

1N/Asub check {

1N/A print "ok\n" if ! warnings::enabled() ;

1N/A}

1N/A1;

1N/A--FILE--

1N/Ause warnings 'syntax' ;

1N/Ause abc ;

1N/Aabc::check() ;

1N/AEXPECT

1N/Apackage 'abc' not registered for warnings at abc.pm line 4

1N/A########

1N/A

1N/A--FILE-- abc.pm

1N/Apackage abc ;

1N/Ano warnings ;

1N/Asub check {

1N/A warnings::warn("fred") ;

1N/A}

1N/A1;

1N/A--FILE--

1N/Ause warnings 'syntax' ;

1N/Ause abc ;

1N/Aabc::check() ;

1N/AEXPECT

1N/Apackage 'abc' not registered for warnings at abc.pm line 4

1N/A########

1N/A

1N/A--FILE-- abc.pm

1N/Apackage abc ;

1N/Ano warnings ;

1N/Asub check {

1N/A warnings::warnif("fred") ;

1N/A}

1N/A1;

1N/A--FILE--

1N/Ause warnings 'syntax' ;

1N/Ause abc ;

1N/Aabc::check() ;

1N/AEXPECT

1N/Apackage 'abc' not registered for warnings at abc.pm line 4

1N/A########

1N/A

1N/A--FILE-- abc.pm

1N/Apackage abc ;

1N/Ause warnings 'io' ;

1N/Ause warnings::register ;

1N/Asub check {

1N/A print "ok1\n" if warnings::enabled ;

1N/A print "ok2\n" if warnings::enabled("syntax") ;

1N/A print "ok3\n" if !warnings::enabled("io") ;

1N/A}

1N/A1;

1N/A--FILE--

1N/Ause warnings 'syntax' ;

1N/Ause abc ;

1N/Ause warnings 'abc' ;

1N/Aabc::check() ;

1N/AEXPECT

1N/Aok1

1N/Aok2

1N/Aok3

1N/A########

1N/A

1N/A--FILE-- abc.pm

1N/Apackage abc ;

1N/Ause warnings 'io' ;

1N/Ause warnings::register ;

1N/Asub check {

1N/A print "ok1\n" if !warnings::enabled ;

1N/A print "ok2\n" if warnings::enabled("syntax") ;

1N/A print "ok3\n" if !warnings::enabled("io") ;

1N/A}

1N/A1;

1N/A--FILE--

1N/Ause warnings 'syntax' ;

1N/Ause abc ;

1N/Aabc::check() ;

1N/AEXPECT

1N/Aok1

1N/Aok2

1N/Aok3

1N/A########

1N/A

1N/A--FILE-- abc.pm

1N/Apackage abc ;

1N/Ano warnings ;

1N/Ause warnings::register ;

1N/Asub check {

1N/A print "ok1\n" if warnings::enabled ;

1N/A print "ok2\n" if warnings::enabled("syntax") ;

1N/A}

1N/A1;

1N/A--FILE--

1N/Ause warnings 'syntax' ;

1N/Ause abc ;

1N/Ause warnings 'abc' ;

1N/Aeval { abc::check() ; };

1N/Aprint $@ ;

1N/AEXPECT

1N/Aok1

1N/Aok2

1N/A########

1N/A

1N/A--FILE-- abc.pm

1N/Apackage abc ;

1N/Ause warnings 'io' ;

1N/Ause warnings::register ;

1N/Asub check {

1N/A print "ok1\n" if !warnings::enabled ;

1N/A print "ok2\n" if warnings::enabled("syntax") ;

1N/A print "ok3\n" if !warnings::enabled("io") ;

1N/A}

1N/A1;

1N/A--FILE--

1N/Ause warnings 'syntax' ;

1N/Ause abc ;

1N/Aeval { abc::check() ; } ;

1N/Aprint $@ ;

1N/AEXPECT

1N/Aok1

1N/Aok2

1N/Aok3

1N/A########

1N/A

1N/A--FILE-- abc.pm

1N/Apackage abc ;

1N/Ause warnings 'io' ;

1N/Ause warnings::register ;

1N/Asub check {

1N/A print "ok1\n" if warnings::enabled ;

1N/A print "ok2\n" if warnings::enabled("syntax") ;

1N/A print "ok3\n" if !warnings::enabled("io") ;

1N/A}

1N/A1;

1N/A--FILE--

1N/Ause warnings 'syntax' ;

1N/Ause abc ;

1N/Ause warnings 'abc' ;

1N/Asub fred { abc::check() }

1N/Afred() ;

1N/AEXPECT

1N/Aok1

1N/Aok2

1N/Aok3

1N/A########

1N/A

1N/A--FILE-- abc.pm

1N/Apackage abc ;

1N/Ause warnings 'io' ;

1N/Ause warnings::register ;

1N/Asub check {

1N/A print "ok1\n" if ! warnings::enabled ;

1N/A}

1N/A1;

1N/A--FILE--

1N/Ause warnings 'syntax' ;

1N/Ause abc ;

1N/Asub fred { no warnings ; abc::check() }

1N/Afred() ;

1N/AEXPECT

1N/Aok1

1N/A########

1N/A

1N/A--FILE-- abc.pm

1N/Apackage abc ;

1N/Ause warnings 'misc' ;

1N/Ause warnings::register;

1N/Asub check {

1N/A print "ok1\n" if warnings::enabled ;

1N/A print "ok2\n" if warnings::enabled("syntax") ;

1N/A print "ok3\n" if warnings::enabled("io") ;

1N/A print "ok4\n" if ! warnings::enabled("misc") ;

1N/A}

1N/A1;

1N/A--FILE--

1N/Ause warnings 'syntax' ;

1N/Ause abc ;

1N/Ause warnings 'abc' ;

1N/Asub fred { use warnings 'io' ; abc::check() }

1N/Afred() ;

1N/AEXPECT

1N/Aok1

1N/Aok2

1N/Aok3

1N/Aok4

1N/A########

1N/A

1N/A--FILE-- abc.pm

1N/Apackage abc ;

1N/Ause warnings 'misc' ;

1N/Ause warnings::register;

1N/Asub check { warnings::warn("hello") }

1N/A1;

1N/A--FILE--

1N/Ause abc;

1N/Ause warnings "abc" ;

1N/Aabc::check() ;

1N/AEXPECT

1N/Ahello at - line 3

1N/A########

1N/A

1N/A--FILE-- abc.pm

1N/Apackage abc ;

1N/Ause warnings::register;

1N/Asub check { warnings::warn("hello") }

1N/A1;

1N/A--FILE--

1N/Ause abc;

1N/Aabc::check() ;

1N/AEXPECT

1N/Ahello at - line 2

1N/A########

1N/A

1N/A--FILE-- abc.pm

1N/Apackage abc ;

1N/Ause warnings::register ;

1N/Asub check { warnings::warn("hello") }

1N/A1;

1N/A--FILE--

1N/Ause abc;

1N/Ause warnings qw( FATAL deprecated ) ;

1N/Aeval {

1N/A abc::check() ;

1N/A } ;

1N/Aprint "[[$@]]\n";

1N/AEXPECT

1N/Ahello at - line 4

1N/A[[]]

1N/A########

1N/A

1N/A--FILE-- abc.pm

1N/Apackage abc ;

1N/Ause warnings::register ;

1N/Asub check { warnings::warn("hello") }

1N/A1;

1N/A--FILE--

1N/Ause abc;

1N/Ause warnings qw( FATAL abc ) ;

1N/Aeval {

1N/A abc::check() ;

1N/A } ;

1N/Aprint "[[$@]]\n";

1N/AEXPECT

1N/A[[hello at - line 4

1N/A]]

1N/A########

1N/A-W

1N/A--FILE-- abc.pm

1N/Apackage abc ;

1N/Ause warnings "io" ;

1N/Ause warnings::register ;

1N/Asub check {

1N/A print "ok1\n" if warnings::enabled() ;

1N/A print "ok2\n" if warnings::enabled("io") ;

1N/A print "ok3\n" if warnings::enabled("all") ;

1N/A}

1N/A1;

1N/A--FILE--

1N/Ano warnings;

1N/Ause abc ;

1N/Aabc::check() ;

1N/AEXPECT

1N/Aok1

1N/Aok2

1N/Aok3

1N/A########

1N/A-X

1N/A--FILE-- abc.pm

1N/Apackage abc ;

1N/Ause warnings "io" ;

1N/Ause warnings::register ;

1N/Asub check {

1N/A print "ok1\n" if !warnings::enabled() ;

1N/A print "ok2\n" if !warnings::enabled("io") ;

1N/A print "ok3\n" if !warnings::enabled("all") ;

1N/A}

1N/A1;

1N/A--FILE--

1N/Ano warnings;

1N/Ause abc ;

1N/Aabc::check() ;

1N/AEXPECT

1N/Aok1

1N/Aok2

1N/Aok3

1N/A########

1N/A

1N/A--FILE-- abc.pm

1N/Apackage abc ;

1N/Ause warnings "io" ;

1N/Ause warnings::register ;

1N/Asub check {

1N/A print "ok1\n" if warnings::enabled() ;

1N/A print "ok2\n" if warnings::enabled("io") ;

1N/A print "ok3\n" if warnings::enabled("all") ;

1N/A}

1N/A1;

1N/A--FILE--

1N/Ause warnings 'all';

1N/Ause abc ;

1N/Aabc::check() ;

1N/AEXPECT

1N/Aok1

1N/Aok2

1N/Aok3

1N/A########

1N/A

1N/A--FILE-- abc.pm

1N/Apackage abc ;

1N/Ause warnings "io" ;

1N/Ause warnings::register ;

1N/Asub check {

1N/A print "ok1\n" if !warnings::enabled() ;

1N/A print "ok2\n" if !warnings::enabled("io") ;

1N/A print "ok3\n" if !warnings::enabled("all") ;

1N/A}

1N/A1;

1N/A--FILE--

1N/Ause abc ;

1N/Ano warnings ;

1N/Aabc::check() ;

1N/AEXPECT

1N/Aok1

1N/Aok2

1N/Aok3

1N/A########

1N/A

1N/A--FILE-- abc.pm

1N/Apackage abc ;

1N/Ause warnings "io" ;

1N/Ause warnings::register ;

1N/Asub check {

1N/A print "ok1\n" if !warnings::enabled() ;

1N/A print "ok2\n" if !warnings::enabled("io") ;

1N/A print "ok3\n" if !warnings::enabled("all") ;

1N/A warnings::warnif("my message 1") ;

1N/A warnings::warnif('abc', "my message 2") ;

1N/A warnings::warnif('io', "my message 3") ;

1N/A warnings::warnif('all', "my message 4") ;

1N/A}

1N/A1;

1N/A--FILE--

1N/Ause abc ;

1N/Ause warnings 'abc';

1N/Ano warnings ;

1N/Aabc::check() ;

1N/AEXPECT

1N/Aok1

1N/Aok2

1N/Aok3

1N/A########

1N/A

1N/A--FILE-- abc.pm

1N/Apackage abc ;

1N/Ause warnings "io" ;

1N/Ause warnings::register ;

1N/Asub check {

1N/A print "abc self" . (warnings::enabled() ? "" : " not") . " enabled\n" ;

1N/A print "abc def" . (warnings::enabled('def') ? "" : " not") . " enabled\n" ;

1N/A print "abc all" . (warnings::enabled('all') ? "" : " not") . " enabled\n" ;

1N/A}

1N/A1;

1N/A--FILE-- def.pm

1N/Apackage def ;

1N/Ause warnings "io" ;

1N/Ause warnings::register ;

1N/Asub check {

1N/A print "def self" . (warnings::enabled() ? "" : " not") . " enabled\n" ;

1N/A print "def abc" . (warnings::enabled('abc') ? "" : " not") . " enabled\n" ;

1N/A print "def all" . (warnings::enabled('all') ? "" : " not") . " enabled\n" ;

1N/A}

1N/A1;

1N/A--FILE--

1N/Ause abc ;

1N/Ause def ;

1N/Ause warnings 'abc';

1N/Aabc::check() ;

1N/Adef::check() ;

1N/Ano warnings 'abc' ;

1N/Ause warnings 'def' ;

1N/Aabc::check() ;

1N/Adef::check() ;

1N/Ause warnings 'abc' ;

1N/Ause warnings 'def' ;

1N/Aabc::check() ;

1N/Adef::check() ;

1N/Ano warnings 'abc' ;

1N/Ano warnings 'def' ;

1N/Aabc::check() ;

1N/Adef::check() ;

1N/Ause warnings;

1N/Aabc::check() ;

1N/Adef::check() ;

1N/Ano warnings 'abc' ;

1N/Aabc::check() ;

1N/Adef::check() ;

1N/AEXPECT

1N/Aabc self enabled

1N/Aabc def not enabled

1N/Aabc all not enabled

1N/Adef self not enabled

1N/Adef abc enabled

1N/Adef all not enabled

1N/Aabc self not enabled

1N/Aabc def enabled

1N/Aabc all not enabled

1N/Adef self enabled

1N/Adef abc not enabled

1N/Adef all not enabled

1N/Aabc self enabled

1N/Aabc def enabled

1N/Aabc all not enabled

1N/Adef self enabled

1N/Adef abc enabled

1N/Adef all not enabled

1N/Aabc self not enabled

1N/Aabc def not enabled

1N/Aabc all not enabled

1N/Adef self not enabled

1N/Adef abc not enabled

1N/Adef all not enabled

1N/Aabc self enabled

1N/Aabc def enabled

1N/Aabc all enabled

1N/Adef self enabled

1N/Adef abc enabled

1N/Adef all enabled

1N/Aabc self not enabled

1N/Aabc def enabled

1N/Aabc all not enabled

1N/Adef self enabled

1N/Adef abc not enabled

1N/Adef all not enabled

1N/A########

1N/A-w

1N/A--FILE-- abc.pm

1N/Apackage abc ;

1N/Ano warnings ;

1N/Ause warnings::register ;

1N/Asub check {

1N/A print "ok1\n" if warnings::enabled() ;

1N/A print "ok2\n" if warnings::enabled("io") ;

1N/A print "ok3\n" if warnings::enabled("all") ;

1N/A}

1N/A1;

1N/A--FILE--

1N/Ause abc ;

1N/Aabc::check() ;

1N/AEXPECT

1N/Aok1

1N/Aok2

1N/Aok3

1N/A########

1N/A-w

1N/A--FILE-- abc.pm

1N/Apackage abc ;

1N/Ano warnings ;

1N/Ause warnings::register ;

1N/Asub check {

1N/A print "ok1\n" if !warnings::enabled() ;

1N/A print "ok2\n" if !warnings::enabled("io") ;

1N/A print "ok3\n" if !warnings::enabled("all") ;

1N/A}

1N/A1;

1N/A--FILE--

1N/Ause abc ;

1N/Ause warnings 'abc';

1N/Ano warnings ;

1N/Aabc::check() ;

1N/AEXPECT

1N/Aok1

1N/Aok2

1N/Aok3

1N/A########

1N/A

1N/A--FILE-- abc.pm

1N/Apackage abc ;

1N/Ano warnings ;

1N/Ause warnings::register ;

1N/Asub check {

1N/A print "ok1\n" if !warnings::enabled() ;

1N/A print "ok2\n" if !warnings::enabled("io") ;

1N/A print "ok3\n" if !warnings::enabled("all") ;

1N/A warnings::warnif("my message 1") ;

1N/A warnings::warnif('abc', "my message 2") ;

1N/A warnings::warnif('io', "my message 3") ;

1N/A warnings::warnif('all', "my message 4") ;

1N/A}

1N/A1;

1N/A--FILE--

1N/Ause abc ;

1N/Ause warnings 'abc';

1N/Ano warnings ;

1N/ABEGIN { $^W = 1 ; }

1N/Aabc::check() ;

1N/AEXPECT

1N/Aok1

1N/Aok2

1N/Aok3

1N/A########

1N/A

1N/A--FILE-- abc.pm

1N/Apackage abc ;

1N/Ano warnings ;

1N/Ause warnings::register ;

1N/Asub check {

1N/A print "ok1\n" if !warnings::enabled() ;

1N/A print "ok2\n" if !warnings::enabled("io") ;

1N/A print "ok3\n" if !warnings::enabled("all") ;

1N/A}

1N/A1;

1N/A--FILE--

1N/Ause abc ;

1N/Ause warnings 'abc';

1N/Ano warnings ;

1N/A$^W = 1 ;

1N/Aabc::check() ;

1N/AEXPECT

1N/Aok1

1N/Aok2

1N/Aok3

1N/A########

1N/A

1N/A--FILE-- abc.pm

1N/A$| = 1;

1N/Apackage abc ;

1N/Ano warnings ;

1N/Ause warnings::register ;

1N/Asub check {

1N/A print "ok1\n" if warnings::enabled() ;

1N/A print "ok2\n" if !warnings::enabled("io") ;

1N/A print "ok3\n" if !warnings::enabled("all") ;

1N/A print "ok4\n" if warnings::enabled("abc") ;

1N/A warnings::warn("my message 1") ;

1N/A warnings::warnif("my message 2") ;

1N/A warnings::warnif('abc', "my message 3") ;

1N/A warnings::warnif('io', "my message 4") ;

1N/A warnings::warnif('all', "my message 5") ;

1N/A}

1N/Asub in2 { no warnings ; check() }

1N/Asub in1 { no warnings ; in2() }

1N/A1;

1N/A--FILE--

1N/Ause abc ;

1N/Ause warnings 'abc';

1N/Aabc::in1() ;

1N/AEXPECT

1N/Aok1

1N/Aok2

1N/Aok3

1N/Aok4

1N/Amy message 1 at - line 3

1N/Amy message 2 at - line 3

1N/Amy message 3 at - line 3

1N/A########

1N/A

1N/A--FILE-- def.pm

1N/Apackage def ;

1N/Ano warnings ;

1N/Ause warnings::register ;

1N/Asub check {

1N/A print "ok1\n" if warnings::enabled() ;

1N/A print "ok2\n" if !warnings::enabled("io") ;

1N/A print "ok3\n" if !warnings::enabled("all") ;

1N/A print "ok4\n" if warnings::enabled("def") ;

1N/A warnings::warn("my message 1") ;

1N/A warnings::warnif("my message 2") ;

1N/A warnings::warnif('def', "my message 3") ;

1N/A warnings::warnif('io', "my message 4") ;

1N/A warnings::warnif('all', "my message 5") ;

1N/A}

1N/Asub in2 { no warnings ; check() }

1N/Asub in1 { no warnings ; in2() }

1N/A1;

1N/A--FILE-- abc.pm

1N/A$| = 1;

1N/Apackage abc ;

1N/Ause def ;

1N/Ause warnings 'def';

1N/Asub in1 { def::in1() ; }

1N/A1;

1N/A--FILE--

1N/Ause abc ;

1N/Ano warnings;

1N/Aabc::in1() ;

1N/AEXPECT

1N/Aok1

1N/Aok2

1N/Aok3

1N/Aok4

1N/Amy message 1 at abc.pm line 5

1N/Amy message 2 at abc.pm line 5

1N/Amy message 3 at abc.pm line 5

1N/A########

1N/A

1N/A--FILE-- def.pm

1N/A$| = 1;

1N/Apackage def ;

1N/Ano warnings ;

1N/Ause warnings::register ;

1N/Arequire Exporter;

1N/A@ISA = qw( Exporter ) ;

1N/A@EXPORT = qw( in1 ) ;

1N/Asub check {

1N/A print "ok1\n" if warnings::enabled() ;

1N/A print "ok2\n" if !warnings::enabled("io") ;

1N/A print "ok3\n" if !warnings::enabled("all") ;

1N/A print "ok4\n" if warnings::enabled("abc") ;

1N/A print "ok5\n" if !warnings::enabled("def") ;

1N/A warnings::warn("my message 1") ;

1N/A warnings::warnif("my message 2") ;

1N/A warnings::warnif('abc', "my message 3") ;

1N/A warnings::warnif('def', "my message 4") ;

1N/A warnings::warnif('io', "my message 5") ;

1N/A warnings::warnif('all', "my message 6") ;

1N/A}

1N/Asub in2 { no warnings ; check() }

1N/Asub in1 { no warnings ; in2() }

1N/A1;

1N/A--FILE-- abc.pm

1N/Apackage abc ;

1N/Ause warnings::register ;

1N/Ause def ;

1N/A#@ISA = qw(def) ;

1N/A1;

1N/A--FILE--

1N/Ause abc ;

1N/Ano warnings;

1N/Ause warnings 'abc';

1N/Aabc::in1() ;

1N/AEXPECT

1N/Aok2

1N/Aok3

1N/Aok4

1N/Aok5

1N/Amy message 1 at - line 4

1N/Amy message 3 at - line 4

1N/A########

1N/A

1N/A--FILE-- def.pm

1N/Apackage def ;

1N/Ano warnings ;

1N/Ause warnings::register ;

1N/A

1N/Asub new

1N/A{

1N/A my $class = shift ;

1N/A bless [], $class ;

1N/A}

1N/A

1N/Asub check

1N/A{

1N/A my $self = shift ;

1N/A print "ok1\n" if !warnings::enabled() ;

1N/A print "ok2\n" if !warnings::enabled("io") ;

1N/A print "ok3\n" if !warnings::enabled("all") ;

1N/A print "ok4\n" if warnings::enabled("abc") ;

1N/A print "ok5\n" if !warnings::enabled("def") ;

1N/A print "ok6\n" if warnings::enabled($self) ;

1N/A

1N/A warnings::warn("my message 1") ;

1N/A warnings::warn($self, "my message 2") ;

1N/A

1N/A warnings::warnif("my message 3") ;

1N/A warnings::warnif('abc', "my message 4") ;

1N/A warnings::warnif('def', "my message 5") ;

1N/A warnings::warnif('io', "my message 6") ;

1N/A warnings::warnif('all', "my message 7") ;

1N/A warnings::warnif($self, "my message 8") ;

1N/A}

1N/Asub in2

1N/A{

1N/A no warnings ;

1N/A my $self = shift ;

1N/A $self->check() ;

1N/A}

1N/Asub in1

1N/A{

1N/A no warnings ;

1N/A my $self = shift ;

1N/A $self->in2();

1N/A}

1N/A1;

1N/A--FILE-- abc.pm

1N/A$| = 1;

1N/Apackage abc ;

1N/Ause warnings::register ;

1N/Ause def ;

1N/A@ISA = qw(def) ;

1N/Asub new

1N/A{

1N/A my $class = shift ;

1N/A bless [], $class ;

1N/A}

1N/A

1N/A1;

1N/A--FILE--

1N/Ause abc ;

1N/Ano warnings;

1N/Ause warnings 'abc';

1N/A$a = new abc ;

1N/A$a->in1() ;

1N/Aprint "**\n";

1N/A$b = new def ;

1N/A$b->in1() ;

1N/AEXPECT

1N/Aok1

1N/Aok2

1N/Aok3

1N/Aok4

1N/Aok5

1N/Aok6

1N/Amy message 1 at - line 5

1N/Amy message 2 at - line 5

1N/Amy message 4 at - line 5

1N/Amy message 8 at - line 5

1N/A**

1N/Aok1

1N/Aok2

1N/Aok3

1N/Aok4

1N/Aok5

1N/Amy message 1 at - line 8

1N/Amy message 2 at - line 8

1N/Amy message 4 at - line 8