File: xmlsubsmatch.t

package info (click to toggle)
libapache-asp-perl 2.62-1
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd, wheezy
  • size: 4,108 kB
  • ctags: 830
  • sloc: perl: 6,033; php: 417; sh: 65; lisp: 22; makefile: 10
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"/>