Lines Matching refs:rdel
156 my $rdel = $ldel;
157 unless ($rdel =~ tr/[({</])}>/)
165 $rdel = join('|', map { quotemeta $_ } split('', $rdel));
169 my @match = _match_bracketed($textref,$pre, $ldel, $qdel, $quotelike, $rdel);
182 my ($textref, $pre, $ldel, $qdel, $quotelike, $rdel) = @_;
210 elsif ($$textref =~ m/\G($rdel)/gc)
279 my $rdel = $_[2];
295 my @match = _match_tagged($textref, $pre, $ldel, $rdel, $omode, $bad, $ignore);
305 my ($textref, $pre, $ldel, $rdel, $omode, $bad, $ignore) = @_;
326 if (!defined $rdel)
331 _failmsg "Unable to construct closing tag to match: $rdel",
338 $rdelspec = eval "qq{$rdel}" || do {
341 { next if $rdel =~ /\Q$_/; $del = $_; last }
344 croak "Can't interpolate right delimiter $rdel"
346 eval "qq$del$rdel$del";
979 my $rdel = $_[1];
1001 my @match = Text::Balanced::_match_tagged($textref, $pre, $ldel, $rdel, $omode, $bad, $ignore);