ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/lib/cf.pm
(Generate patch)

Comparing deliantra/server/lib/cf.pm (file contents):
Revision 1.479 by root, Thu Oct 8 05:04:27 2009 UTC vs.
Revision 1.480 by root, Thu Oct 8 05:09:43 2009 UTC

… …
169for (@REFLECT) { 169for (@REFLECT) {
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
175$REFLECT{object}{flags} = [grep $_, map /^FLAG_([A-Z0-9_]+)$/ && lc $1, keys %{"cf::"}];
176
174############################################################################# 177#############################################################################
175 178
176=head2 GLOBAL VARIABLES 179=head2 GLOBAL VARIABLES
177 180
178=over 4 181=over 4
… …
231that call. 234that call.
232 235
233=item %cf::REFLECT 236=item %cf::REFLECT
234 237
235Contains, for each (C++) class name, a hash reference with information 238Contains, for each (C++) class name, a hash reference with information
236about object members (methods, scalars and arrays) and other metadata, 239about object members (methods, scalars, arrays and flags) and other
237which is useful for introspection. 240metadata, which is useful for introspection.
238 241
239=back 242=back
240 243
241=cut 244=cut
242 245

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines