sub run {
my $self = shift;
- my $db_obj = shift;
- # options
- my $options = $db_obj->data_as_hash;
$self->setup;
return 1 unless $self->modules;
-
- $main::lxdebug->message(0, 'optioni' . Dumper($self->modules));
foreach my $module ($self->modules) {
- next unless $module eq $options->{module};
- $main::lxdebug->message(0, 'hieur' . $module);
$self->run_module($module);
}