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
|
use Apache::ASP::CGI;
&Apache::ASP::CGI::do_self(
XMLSubsMatch => 'my:[\w\-]+',
NoState => 1,
UseStrict => 1,
Debug => 0,
XMLSubsPerlArgs => 'Off',
);
__END__
<% my $ref = { ok => 1, ref => \'data' } ; %>
<my:tag>
<my:deeptag hello="<%= $ref->{ok} %>"/>
<my:deeptag></my:deeptag>
</my:tag>
<my:returnok arg-break='3'
onearg='1'>ok</my:returnok>
<my:args ok="<%= 1 %>" />
<my:args
ok="1"
error="Multiline Arguments"
/>
<my:args ok="<%= $ref->{ok} %>" />
<my:args ok="1<%= $ref->{ok} %>"></my:args>
<my:tag_check_value value="<%= $ref %>" />
<my:tag_check_value value="<%= '' %><%= 1 %>" />
<my:tag_check_value value="<%= '' %><%= 1 %><%= '' %>" />
<my:tag_check_value_ref value="<%= $ref %>" />
<my:tag_check_value_ref value='<%= $ref->{ref} %>' />
<my:tag_check_value_not_ref value='<%= $ref->{ref} %> ' />
<my:tag_check_value_not_ref value='<%= $ref->{ref} %><%= $ref %>' />
<my:tag-check-value value="1" />
<my:deeptag />
<% $t->eok($Deep == 3, "Deep tag to call twice"); %>
<my:args
error="Multiline Arguments"
ok="1"
></my:args>
|
