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