Cross Reference: /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Text/Balanced.pm

Lines Matching refs:pre
131 	my $pre  = defined $_[2] ? $_[2] : '\s*';
136 		unless $$textref =~ m/\G($pre)($pat)/gc;
150 	my $pre  = defined $_[2] ? $_[2] : '\s*';
172 	my @match = _match_bracketed($textref,$pre, $ldel, $qdel, $quotelike, $rdel);
183 sub _match_bracketed($$$$$$)	# $textref, $pre, $ldel, $qdel, $quotelike, $rdel
185 	my ($textref, $pre, $ldel, $qdel, $quotelike, $rdel) = @_;
187 	unless ($$textref =~ m/\G$pre/gc)
189 		_failmsg "Did not find prefix: /$pre/", $startpos;
197 		_failmsg "Did not find opening bracket after prefix: \"$pre\"",
278 sub extract_tagged (;$$$$$) # ($text, $opentag, $closetag, $pre, \%options)
283 	my $pre     = defined $_[3] ? $_[3] : '\s*';
298 	my @match = _match_tagged($textref, $pre, $ldel, $rdel, $omode, $bad, $ignore);
308 	my ($textref, $pre, $ldel, $rdel, $omode, $bad, $ignore) = @_;
313 	unless ($$textref =~ m/\G($pre)/gc)
315 		_failmsg "Did not find prefix: /$pre/", pos $$textref;
429 	my $pre  = defined $_[1] ? $_[1] : '\s*';
431 	my @match = _match_variable($textref,$pre);
444 	my ($textref, $pre) = @_;
446 	unless ($$textref =~ m/\G($pre)/gc)
448 		_failmsg "Did not find prefix: /$pre/", pos $$textref;
499 	my $pre        = defined $_[2] ? $_[2] : '\s*';
513 	my @match = _match_codeblock($textref, $pre,
526 	my ($textref, $pre, $ldel_outer, $rdel_outer, $ldel_inner, $rdel_inner, $rd) = @_;
528 	unless ($$textref =~ m/\G($pre)/gc)
530 		_failmsg qq{Did not match prefix /$pre/ at"} .
651 	my $pre  = defined $_[1] ? $_[1] : '\s*';
653 	my @match = _match_quotelike($textref,$pre,1,0);
666 	my ($textref, $pre, $rawmatch, $qmark) = @_;
674 	unless ($$textref =~ m/\G($pre)/gc)
676 		_failmsg qq{Did not find prefix /$pre/ at "} .
978 sub gen_extract_tagged # ($opentag, $closetag, $pre, \%options)
982 	my $pre     = defined $_[2] ? $_[2] : '\s*';
997 	for ($ldel, $pre, $bad, $ignore) { $_ = qr/$_/ if $_ }
1003 		my @match = Text::Balanced::_match_tagged($textref, $pre, $ldel, $rdel, $omode, $bad, $ignore);
1108 # but pre-compiled and optimized for a specific pair of tags, and consequently
1614 make use of the new qr// construct to pre-compile the regexes they use
1636 to preserve pre-5.005 compatibility).