- $data[0] = "DEBUG: " . $data[0];
- if ($self->{'_DEBUG'} != 0) {$self->error(@data)};
-}
-
-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'}}};