2 |
## $Id$ |
## $Id$ |
3 |
## -------------------------------------------------------------------------------- |
## -------------------------------------------------------------------------------- |
4 |
## $Log$ |
## $Log$ |
5 |
|
## Revision 1.9 2003/02/18 18:35:30 joko |
6 |
|
## + encapsulated/abstracted some more functionality: sub load_single |
7 |
|
## |
8 |
## Revision 1.8 2003/02/14 14:20:05 joko |
## Revision 1.8 2003/02/14 14:20:05 joko |
9 |
## + modified mixin behaviour |
## + modified mixin behaviour |
10 |
## |
## |
132 |
sub load { |
sub load { |
133 |
|
|
134 |
my $self = shift; |
my $self = shift; |
135 |
|
my $modulename = shift; |
136 |
|
my $options = shift; |
137 |
|
|
138 |
|
if (ref $modulename eq 'ARRAY') { |
139 |
|
foreach (@$modulename) { |
140 |
|
$self->load_single($_, $options); |
141 |
|
} |
142 |
|
} else { |
143 |
|
$self->load_single($modulename, $options); |
144 |
|
} |
145 |
|
|
146 |
|
} |
147 |
|
|
148 |
|
sub load_single { |
149 |
|
|
150 |
|
my $self = shift; |
151 |
my $modulename_load = shift; |
my $modulename_load = shift; |
152 |
|
|
153 |
my $options = shift; |
my $options = shift; |