… | |
… | |
243 | for my $pkg (qw( |
243 | for my $pkg (qw( |
244 | cf::global cf::attachable |
244 | cf::global cf::attachable |
245 | cf::object cf::object::player |
245 | cf::object cf::object::player |
246 | cf::client cf::player |
246 | cf::client cf::player |
247 | cf::arch cf::living |
247 | cf::arch cf::living |
|
|
248 | cf::map cf::mapspace |
248 | cf::map cf::party cf::region |
249 | cf::party cf::region |
249 | )) { |
250 | )) { |
250 | no strict 'refs'; |
251 | no strict 'refs'; |
251 | @{"safe::$pkg\::wrap::ISA"} = @{"$pkg\::wrap::ISA"} = $pkg; |
252 | @{"safe::$pkg\::wrap::ISA"} = @{"$pkg\::wrap::ISA"} = $pkg; |
252 | } |
253 | } |
253 | |
254 | |