Commit | Line | Data |
---|---|---|
40aef9d6 | 1 | package ExporterTest; |
2 | use warnings; | |
3 | use strict; | |
4 | ||
5 | use base 'Exporter'; | |
53e92ec5 | 6 | use vars qw( @EXPORT_OK $foo ); |
40aef9d6 | 7 | |
53e92ec5 | 8 | $foo = 777; |
9 | @EXPORT_OK = qw( $foo foo bar qux ); | |
40aef9d6 | 10 | |
11 | sub foo { 23 } | |
12 | sub bar { 12 } | |
53e92ec5 | 13 | sub qux { 17 } |
40aef9d6 | 14 | |
15 | 1; |