<%perl> # does the requested comp have anything special to tell the body tag? % my $BodyAttr = $m->comp('REQUEST:body_attr') % if $m->request_comp->method_exists('body_attr'); %# THE OUTPUT ... <& 'SELF:body_tag', attrs => $BodyAttr &> % $m->call next; <%method body_tag> <%args> $attrs => undef <%perl> my $att_str; if ($attrs && %$attrs) { for (keys %$attrs) { $att_str .= sprintf qq[ %s="%s"], $_, $attrs->{$_}; } } >