blob: a8cabde544ca11e3a505addd7e3dac011046888c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
package NDB::Run;
use strict;
use Carp;
require Exporter;
use NDB::Net;
use vars qw(@ISA @EXPORT @EXPORT_OK);
@ISA = qw(Exporter);
use vars qw(@modules);
@modules = qw(
NDB::Run::Base
NDB::Run::Database
NDB::Run::Env
NDB::Run::Node
);
return 1 if $main::onlymodules;
for my $module (@modules) {
eval "require $module";
$@ and confess "$module $@";
}
for my $module (@modules) {
eval "$module->initmodule";
$@ and confess "$module $@";
}
# methods
sub getenv {
my $class = shift;
return NDB::Run::Env->new(@_);
}
1;
# vim:set sw=4:
|