SHOW:
|
|
- or go back to the newest paste.
| 1 | $ cat Foo.pm | |
| 2 | package Foo; | |
| 3 | use warnings::register; | |
| 4 | sub bar { warnings::warnif("Test"); }
| |
| 5 | 1; | |
| 6 | - | sub bar {
|
| 6 | + | |
| 7 | - | warnings::warnif("Test");
|
| 7 | + | |
| 8 | - | } |
| 8 | + | |
| 9 | $ perl -e'use warnings; use Foo; Foo::bar();' | |
| 10 | Test at -e line 1 | |
| 11 | ||
| 12 | $ perl -e'use Foo; use warnings; Foo::bar();' | |
| 13 | Test at -e line 1 |
