Return to run.pm CVS log | Up to [LON-CAPA] / loncom / xml |
- packaged it for use
package Apache::run; sub evaluate { my ($expression,$safeeval) = @_; return $safeeval->reval($expression); } sub run { my ($code,$safeeval) = @_; $safeeval->reval($code); } 1; __END__;