File: xmlsubsmatch.t

package info (click to toggle)
libapache-asp-perl 2.57-3
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 2,392 kB
  • ctags: 593
  • sloc: perl: 6,010; php: 418; sh: 65; makefile: 44; lisp: 22
file content (20 lines) | stat: -rw-r--r-- 308 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
use Apache::ASP::CGI;
&Apache::ASP::CGI::do_self(
	XMLSubsMatch => '(aaa|bbb):(?:[a-z]|[0-9])+',
	NoState => 1,
	UseStrict => 1,
	BufferingOn => 0,
#	Debug => -3,
);

__END__

<%
sub aaa::a2z { $t->ok };
sub bbb::a2z { $t->ok };
%>
<aaa:a2z />
<bbb:a2z />
<aaa:a2z a="b">asdfdsaf</aaa:a2z>
<bbb:a2z a="b"/>