<HTML>
<HEAD>
<TITLE>
method Test
</TITLE>
</HEAD>
<BODY>
<% $m->current_comp->call_method('foo',y=>2) %>
% my $out = $m->current_comp->scall_method('bar',qw(a b c));
<% uc($out) %>
</BODY>
</HTML>
<%method foo>
% my $sum = $y + $y;
<% $y %> + <% $y %> = <% $sum %>.
<%args>
$y
</%args>
</%method>
<%method bar>
The second method. Arguments are <% join(",",@_) %>.
</%method>
