2 |
## $Id$ |
## $Id$ |
3 |
## -------------------------------------------------------------------------------- |
## -------------------------------------------------------------------------------- |
4 |
## $Log$ |
## $Log$ |
5 |
|
## Revision 1.6 2003/02/09 16:22:51 joko |
6 |
|
## + pseudo constructor mechanism via options |
7 |
|
## |
8 |
## Revision 1.5 2003/01/31 01:19:50 root |
## Revision 1.5 2003/01/31 01:19:50 root |
9 |
## + fixed: doesn't need Log::Dispatch any more, but uses it if available |
## + fixed: doesn't need Log::Dispatch any more, but uses it if available |
10 |
## |
## |
110 |
my $self = shift; |
my $self = shift; |
111 |
my $modulename_load = shift; |
my $modulename_load = shift; |
112 |
|
|
113 |
|
my $options = shift; |
114 |
|
|
115 |
my $self_modulename = ref $self; |
my $self_modulename = ref $self; |
116 |
my $package = $self->_getPluginPackage($modulename_load); |
my $package = $self->_getPluginPackage($modulename_load); |
117 |
|
|
148 |
# switch into foreign package and mixin plugin-module |
# switch into foreign package and mixin plugin-module |
149 |
$self->mixinPackage($package); |
$self->mixinPackage($package); |
150 |
|
|
151 |
|
if (my $method = $options->{method}) { |
152 |
|
$self->$method(); |
153 |
|
} |
154 |
|
|
155 |
return 1; |
return 1; |
156 |
|
|
157 |
} |
} |