1.1 ! sakharuk 1: sub evaluate { ! 2: my ($expression,$safeeval) = @_; ! 3: return $safeeval->reval($expression); ! 4: } ! 5: ! 6: sub run { ! 7: my ($code,$safeeval) = @_; ! 8: $safeeval->reval($code); ! 9: }