Commit | Line | Data |
---|---|---|
633048d5 | 1 | # For use with t/error_interruption.t |
2 | ||
3 | package BarfyDie; | |
4 | ||
5 | use strict; | |
6 | use warnings; | |
7 | ||
8 | use Function::Parameters qw(:strict); | |
9 | ||
10 | ||
11 | # This _should_ produce a simple error like the following: | |
12 | # Global symbol "$foo" requires explicit package name at t/lib/BarfyDie.pm line 13. | |
13 | $foo = 'hi!'; | |
14 | ||
15 | ||
16 | method foo ($bar) | |
17 | { | |
18 | } | |
19 | ||
20 | ||
21 | 1; |