nxhtml/tests/in/mason.mason

   1
   2 <%perl>
   3     my $noun = 'World';
   4 my @time = localtime;
   5 </%perl>
   6 Hello <% $noun %>,
   7 % if ( $time[2] < 12 ) {
   8                   good morning.
   9                   % } else {
  10                   good afternoon.
  11                   % }
  12
  13                   <%text>
  14                     Some text
  15                   </%text>
  16
  17 <%doc>
  18                     Some doc
  19 </%doc>
  20
  21 <& simple_comp &>
  22
  23   <%args>
  24     $a
  25     @b       # a comment
  26     %c
  27
  28     # another comment
  29     $d => 5
  30     $e => $d*2
  31     @f => ('foo', 'baz')
  32     %g => (joe => 1, bob => 2)
  33   </%args>
  34
  35 <&| /path/to/comp &> this is the content </&>
  36 <&| comp, arg1 => 'hi' &> filters can take arguments </&>
  37 <&| comp &> content can include <%  "tags" %> of all kinds </&>
  38 something
  39 <& simple_comp &>
  40 <&| SELF:method1 &> subcomponents can be filters </&>
  41 <&| compit &>
  42   <&| comp1 &>
  43     nesting is also
  44     <&| comp2 &> OK </&>
  45 xx
  46 </&>