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