2 Einträge, 1 Seite |
1
2
3
@EXPORT = qw(A1 A2 A3 A4 A5);
@EXPORT_OK = qw(B1 B2 B3 B4 B5);
%EXPORT_TAGS = (T1 => [qw(A1 A2 B1 B2)], T2 => [qw(A1 A2 B3 B4)]);
"ALL" is not defined in %FeFile::EXPORT_TAGS at /home/usr207/daten/perl/forumeditor/FeGui.pm line 19
1
2
3
4
5
6
use FindBin;
use lib $FindBin::Bin;
use FeCore qw/:ALL/;
use FeFile qw/:ALL/;
use FeGui qw/:ALL/;
1
2
3
4
use base qw/Exporter/;
our @EXPORT = qw//;
our @EXPORT_OK = qw/%Config @Icon/;
our %EXPORT_TAGS = (ALL => [qw/%Config @Icon/]);
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
use FeCore qw/:ALL/;
use FeGui qw/:ALL/; ### ZEILE 19 ###
use base qw/Exporter/;
our @EXPORT = qw//;
our @EXPORT_OK = qw/load
create
save
datei_neu
datei_oeffnen
datei_speichern
datei_speichern_unter
bearbeiten
init/;
our %EXPORT_TAGS = (ALL => [qw/load
create
save
datei_neu
datei_oeffnen
datei_speichern
datei_speichern_unter
bearbeiten
init/]);
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
use FeCore qw/:ALL/;
use FeFile qw/:ALL/;
...
use base qw/Exporter/;
our @EXPORT = qw//;
our @EXPORT_OK = qw/tk_main
anzeige_fenster
hilfe
historie
ueber
open_or_new
tk_ende/;
our %EXPORT_TAGS = (ALL => [qw/tk_main
anzeige_fenster
hilfe
historie
ueber
open_or_new
tk_ende/]);
1
2
3
cd /usr
ls -d perl*
perl5.004_04 perl5.6.2 perl5.8.0d perl5.8.1 perl5.8.2 perl5.8.3 perl5.8.4d perl5.8.5 perl5.8.6 perl5.9.0 perl5.9.2d
2 Einträge, 1 Seite |