package module::userv; use strict; use Wx qw[wxICON_ERROR wxICON_EXCLAMATION]; use JSON; use Digest::MD5 qw(md5_hex); sub import { no strict 'refs'; my $caller = caller; #@EXPORT: *{"$caller\::$_"} = \&{"$_"} for qw(pruefen anmeldung change_pwd); } # import #...