Wx- Compile - #137716 (Graphische Oberflächen)

MatthiasW

2010-05-28 14:14

User since
2008-01-27
367 Artikel
BenutzerIn
[default_avatar]

Zwar ist es mir ein Rätsel weshalb, aber der Exporter scheint Probleme zu machen. Mit einer eigenen import() Methode hat es bei mir in einem Test ohne Wx usw. hervorragend funktioniert. Vielleicht läuft es so auch bei dir:

Code (perl): (dl )

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

#...

MfG

perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'