| … | |
… | |
| 80 | |
80 | |
| 81 | # we bless all objects into (empty) derived classes to force a method lookup |
81 | # we bless all objects into (empty) derived classes to force a method lookup |
| 82 | # within the Safe compartment. |
82 | # within the Safe compartment. |
| 83 | for my $pkg (qw( |
83 | for my $pkg (qw( |
| 84 | cf::object cf::object::player |
84 | cf::object cf::object::player |
| 85 | cf::client_socket cf::player |
85 | cf::client cf::player |
| 86 | cf::arch cf::living |
86 | cf::arch cf::living |
| 87 | cf::map cf::party cf::region |
87 | cf::map cf::party cf::region |
| 88 | )) { |
88 | )) { |
| 89 | no strict 'refs'; |
89 | no strict 'refs'; |
| 90 | @{"safe::$pkg\::wrap::ISA"} = @{"$pkg\::wrap::ISA"} = $pkg; |
90 | @{"safe::$pkg\::wrap::ISA"} = @{"$pkg\::wrap::ISA"} = $pkg; |
