1<HTML><BODY> 2<H1> test expr with perl-supplied functions </H1> 3hello('dad')=<tmpl_var expr="hello('dad')"> 4lc('DAD')=<tmpl_var expr="lc('DAD')"> 5lc(ONE)=<tmpl_var expr="lc(ONE)"> 6sprintf('1+1=%d', TWO)=<TMPL_VAR EXPR="sprintf('1+1=%d', TWO)"> 7<H1> test expr with user-defined functions </H1> 8registered_func('self')=<tmpl_var expr="registered_func('self')"> 9hello_string()=<tmpl_var expr="hello_string()"> 10arglist()=<tmpl_var expr="arglist()"> 11arglist('')=<tmpl_var expr="arglist('')"> 12arglist('','')=<tmpl_var expr="arglist('','')"> 13arglist('a','b')=<tmpl_var expr="arglist('a','b')"> 14</body></html> 15