| … | |
… | |
| 70 | @ext::cf::object::player::ISA = @cf::object::player::ISA = 'cf::object'; |
70 | @ext::cf::object::player::ISA = @cf::object::player::ISA = 'cf::object'; |
| 71 | @ext::cf::object::map::ISA = @cf::object::map::ISA = 'cf::object'; |
71 | @ext::cf::object::map::ISA = @cf::object::map::ISA = 'cf::object'; |
| 72 | |
72 | |
| 73 | # we bless all objects into derived classes to force a method lookup |
73 | # we bless all objects into derived classes to force a method lookup |
| 74 | # within the Safe compartment. |
74 | # within the Safe compartment. |
| 75 | for my $pkg (qw(cf::object cf::object::map cf::object::player cf::player cf::map cf::party cf::region)) { |
75 | for my $pkg (qw(cf::object cf::object::map cf::object::player cf::player cf::map cf::party cf::region cf::arch)) { |
| 76 | no strict 'refs'; |
76 | no strict 'refs'; |
| 77 | @{"ext::$pkg\::wrap::ISA"} = @{"$pkg\::wrap::ISA"} = $pkg; |
77 | @{"ext::$pkg\::wrap::ISA"} = @{"$pkg\::wrap::ISA"} = $pkg; |
| 78 | } |
78 | } |
| 79 | |
79 | |
| 80 | $Event::DIED = sub { |
80 | $Event::DIED = sub { |
