blob: d5db35cbf13accaf83126731c6931e63e9c3929e (
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
|
package NDB::Util;
use strict;
use Carp;
require Exporter;
use vars qw(@ISA @EXPORT @EXPORT_OK);
@ISA = qw(Exporter);
use vars qw(@modules);
@modules = qw(
NDB::Util::Base
NDB::Util::Dir
NDB::Util::Event
NDB::Util::File
NDB::Util::IO
NDB::Util::Lock
NDB::Util::Log
NDB::Util::Socket
NDB::Util::SocketINET
NDB::Util::SocketUNIX
);
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 $@";
}
1;
# vim:set sw=4:
|