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