fork download
  1. package Foo {
  2. sub bar {
  3. warnings::warnif(deprecated => 'Foo:bar is deprecated');
  4. }
  5. }
  6.  
  7. use warnings;
  8. # no warnings 'deprecated'; # <-- uncomment this to disable the warning
  9. Foo::bar(); # <-- this is line 9
Success #stdin #stdout #stderr 0s 3832KB
stdin
Standard input is empty
stdout
Standard output is empty
stderr
Foo:bar is deprecated at prog.pl line 9.