% use Foo::Bar;
% if ($foo && $kk) {
  <& style &> <& style, foo => [ qw(bar baz) ] &>
  <% $style + 3 %> <p>foo</p>
  <% $foo + 2 % 40 && 2 |h,n %> <p>foo</p>
  <% require Foo::Bar %> <p>foo &amp; bar</p>
  <p>kkt!</p>
  <% $foo + 2 % 40 |h,n %> <p>foo</p>
  <& /foo, bar => 1 + 2, baz => sub { A::B::C->do(@_) } &>
% }

<!-- component with content -->
<ol>
<&| list_items, list => \@items &>
<li> <% $_ %>
</&>
</ol>

<%def foo>
    <p>foo &amp; bar</p>
<%perl>
    $foo = '<p>bar</p>';
    $bar = $foo x 5;
</%perl>
    <% $bar %>
</%def>

<%once>
    use CGI;
</%once>

<%init>
    use Foo;
    my $foo = 'baz';
    if ($foo) {
        $m->redirect($foo);
    }
</%init>

<%args>
    $foo
    $bar => undef
    @baz => qw[a b c]
</%args>

<%attr>
    cucu => 'bau'
</%attr>

<%flags>
    inherit => undef
</%flags>