![]() ![]() | ![]() |
- packaged it for use
1: package Apache::run; 2: 3: sub evaluate { 4: my ($expression,$safeeval) = @_; 5: return $safeeval->reval($expression); 6: } 7: 8: sub run { 9: my ($code,$safeeval) = @_; 10: $safeeval->reval($code); 11: } 12: 13: 1; 14: __END__;