| … | |
… | |
| 864 | |
864 | |
| 865 | =pod |
865 | =pod |
| 866 | |
866 | |
| 867 | The following fucntions and emthods are available within a safe environment: |
867 | The following fucntions and emthods are available within a safe environment: |
| 868 | |
868 | |
| 869 | cf::object contr pay_amount pay_player |
869 | cf::object contr pay_amount pay_player map |
| 870 | cf::object::player player |
870 | cf::object::player player |
| 871 | cf::player peaceful |
871 | cf::player peaceful |
|
|
872 | cf::map trigger |
| 872 | |
873 | |
| 873 | =cut |
874 | =cut |
| 874 | |
875 | |
| 875 | for ( |
876 | for ( |
| 876 | ["cf::object" => qw(contr pay_amount pay_player)], |
877 | ["cf::object" => qw(contr pay_amount pay_player map)], |
| 877 | ["cf::object::player" => qw(player)], |
878 | ["cf::object::player" => qw(player)], |
| 878 | ["cf::player" => qw(peaceful)], |
879 | ["cf::player" => qw(peaceful)], |
|
|
880 | ["cf::map" => qw(trigger)], |
| 879 | ) { |
881 | ) { |
| 880 | no strict 'refs'; |
882 | no strict 'refs'; |
| 881 | my ($pkg, @funs) = @$_; |
883 | my ($pkg, @funs) = @$_; |
| 882 | *{"safe::$pkg\::$_"} = $safe_hole->wrap (\&{"$pkg\::$_"}) |
884 | *{"safe::$pkg\::$_"} = $safe_hole->wrap (\&{"$pkg\::$_"}) |
| 883 | for @funs; |
885 | for @funs; |
