|
253
|
23 |
4 |
unless $script =~ s[
\<\s*($xml_subs_match)(\s+[^\>]*)?\>(?!.*?\<\s*\1[^\>]*\>)(.*?)\<\/\1\s*>
][{
my($func, $args, $text) = ($1, $2, $3);
$args = $self->_code_tag_decode($args);
$func =~ s/\:+/::/g;
if ($args) {
$args =~ s/(\s*)([^\s]+?)(\s*)\=(\s*[^\s]+)/,$1'$2'$3=>$4/gs;
$args =~ s/^(\s*),/$1/s;
} ;
$args ||= '';
$text = $self->_code_tag_decode($text);
if ($text =~ /\<\%|\<($xml_subs_match)/) {
my $sub_scriptref = $self->_parse_asp($c, \$text);
$text = join(' ', '&{sub {', 'my $saved = $Response->Body;', '$Response->Clear;', 'local $Response->{out} = local $Response->{BinaryRef} = \\( $Response->{Body} );', 'local *CatalystX::ASP::Response::Flush = sub {};', $$sub_scriptref, ';', 'my $trapped = $Response->Body;', '$Response->Body( $saved );', '$trapped;', '} }');
}
else {
$text =~ s/\\/\\\\/sog;
$text =~ s/\'/\\'/sog;
$text = "'${text}'";
} ;
"<% $func({ $args }, $text); %>";
} ;]egsx
|