Commit | Line | Data |
---|---|---|
6444f23a | 1 | package OtherTypes; |
2 | ||
3 | our $foo = 23; | |
4 | our @foo = "bar"; | |
5 | our %foo = (mouse => "trap"); | |
6 | { | |
7 | no warnings; | |
8 | # perl warns about the bareword foo. If we use *foo instead the | |
9 | # warning goes away, but the *foo{IO} slot doesn't get autoviv'd at | |
10 | # compile time. | |
11 | open foo, "<", $0; | |
12 | } | |
13 | ||
14 | BEGIN { $main::pvio = *foo{IO} } | |
15 | ||
16 | sub foo { 1 } | |
17 | ||
18 | use namespace::clean; | |
19 | ||
20 | 1; |