… | |
… | |
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} = { map $_ => undef, 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 | |