Opened by Gast at 2004-04-17 13:01
Das ist OK Baer ...
und entspricht (in etwa) dem was ich da veranstaltet habe.
Damit steht dann das I/O Object ($io) im Namensraum der Klasse SysConfig, als globale Variable zur Verfügung.
(
Gerade fällt mir dazu ein:
man könnte ja $io den Instanzmethoden in Form einer Closure zuweisen ...
$self->{io} = $io;
ob das allerdings die Sache entwirren würde?
Muss mir mal in Ruhe ansehen wie sich die I/O Klasse dann verhält.
)
und entspricht (in etwa) dem was ich da veranstaltet habe.
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
#-#############################################
package SysConfig;
#-#############################################
# Use-Section
#-#############################################
use strict;
use warnings;
#-#############################################
# Setup-Section
#-#############################################
our ($config, $io);
#-#############################################
sub new {
#-#############################################
my $invoc = shift;
my $class = ref $invoc || $invoc;
my $self = {};
($config, $io) = @{shift()};
bless $self, $class;
return $self;
}
Damit steht dann das I/O Object ($io) im Namensraum der Klasse SysConfig, als globale Variable zur Verfügung.
(
Gerade fällt mir dazu ein:
man könnte ja $io den Instanzmethoden in Form einer Closure zuweisen ...
$self->{io} = $io;
ob das allerdings die Sache entwirren würde?
Muss mir mal in Ruhe ansehen wie sich die I/O Klasse dann verhält.
)