| … | |
… | |
| 117 | our $BDB_DEADLOCK_WATCHER; |
117 | our $BDB_DEADLOCK_WATCHER; |
| 118 | our $BDB_CHECKPOINT_WATCHER; |
118 | our $BDB_CHECKPOINT_WATCHER; |
| 119 | our $BDB_TRICKLE_WATCHER; |
119 | our $BDB_TRICKLE_WATCHER; |
| 120 | our $DB_ENV; |
120 | our $DB_ENV; |
| 121 | |
121 | |
| 122 | our @EXTRA_MODULES = qw(pod mapscript); |
122 | our @EXTRA_MODULES = qw(pod match mapscript); |
| 123 | |
123 | |
| 124 | our %CFG; |
124 | our %CFG; |
| 125 | |
125 | |
| 126 | our $UPTIME; $UPTIME ||= time; |
126 | our $UPTIME; $UPTIME ||= time; |
| 127 | our $RUNTIME; |
127 | our $RUNTIME; |
| … | |
… | |
| 170 | my $reflect = JSON::XS::decode_json $_; |
170 | my $reflect = JSON::XS::decode_json $_; |
| 171 | $REFLECT{$reflect->{class}} = $reflect; |
171 | $REFLECT{$reflect->{class}} = $reflect; |
| 172 | } |
172 | } |
| 173 | |
173 | |
| 174 | # this is decidedly evil |
174 | # this is decidedly evil |
| 175 | $REFLECT{object}{flags} = [grep $_, map /^FLAG_([A-Z0-9_]+)$/ && lc $1, keys %{"cf::"}]; |
175 | $REFLECT{object}{flags} = { map $_ => undef, grep $_, map /^FLAG_([A-Z0-9_]+)$/ && lc $1, keys %{"cf::"} }; |
| 176 | |
176 | |
| 177 | ############################################################################# |
177 | ############################################################################# |
| 178 | |
178 | |
| 179 | =head2 GLOBAL VARIABLES |
179 | =head2 GLOBAL VARIABLES |
| 180 | |
180 | |
