use Class::HPLOO ;#qw(nice) ;
class foo {
vars ($global) ;
$global = "123456789" ;
sub test( $arg ) {
my $ret ;
$ret .= ref($this) . "$arg\n" ;
$ret .= "--------------\n" ;
$ret .= <% html_test>( 123 ) ;
$ret .= "--------------\n" ;
$ret .= <% html_test2>( 123 , 456 , 789 ) ;
$ret .= "--------------\n" ;
return $ret ;
}
<% html_test
MOHHHH $global
%>
<% html_test2(@list)
MOHHHH @list
%>
}