-sub mergeconfig {
- my $self = shift;
- my $c = shift;
- my $o;
-
- return $self->{'_CONFIG'} unless defined($c);
-
- foreach $o (keys(%{$c->{'option'}})) {
- if (exists($self->{'_CONFIG'}->{'option'}->{$o})) {
- $self->{'_CONFIG'}->{'option'}->{$o}->{'content'} = $c->{'option'}->{$o}->{'content'};
- }
- }
-
- return $self->{'_CONFIG'};
-}
-
-sub _prepare_parameters {
- my $self = shift;
- my $p;
-
- $self->{'_CONFIG'} = {'option' => {'enabled' => {'content' => '1'}}};
-
- foreach $p (keys(%{$self->{'_PARAMS'}})) {
- $self->{'_CONFIG'}->{'option'}->{$p}->{'content'} = $self->{'_PARAMS'}->{$p}->[0];
- }
-}
-