Lines Matching refs:dataref
17 my ( $self, $dataref, $message, $protocol, $buffer ) = @_;
19 my $pos = pos($$dataref) = 0;
22 $pos = pos($$dataref);
23 $$dataref =~ /\G<\s*(?:script|style)[^>]*>/cgi # protect
25 $$dataref =~ /\G<\s*\/\s*(?:script|style)[^>]*>/cgi # unprotect
30 $$dataref =~ /\G<!--/cg && redo SCAN; # comment
31 $$dataref =~ /\G>/cg && redo SCAN; # lost >
32 $$dataref =~ /\G(?=(<[^\s\/?%!a-z]))/cgi && goto TEXT; # < in text
33 $$dataref =~ /\G(?:<[^>]*>)+/cg && redo SCAN; # tags
34 $$dataref =~ /\G(?:&[^\s;]*;?)+/cg && redo SCAN; # entities
35 $$dataref =~ /\G([^<>&]+)/cg && goto TEXT; # text
42 substr( $$dataref, $pos, length($1), $_ );
43 pos($$dataref) = $pos + length($_);