5 use vars qw(@EXPORT @EXPORT_OK @ISA $IMPORTED);
9 @EXPORT_OK = qw(func1);
11 ### test if import gets called properly
12 sub import { $IMPORTED = 1; goto &Exporter::import; }
13 sub imported { $IMPORTED; }
15 sub func1 { return "func1"; }
17 sub func2 { return "func2"; }