view release on metacpan or  search on metacpan

lib/SQL/YASP.pm  view on Meta::CPAN

sub unquote {
	my ($rv) = @_;
	
	# remove outer quotes
	if ($rv =~ s|^'(.*)'$|$1|s)
		{$rv =~ s|''|'|sg}
	elsif ($rv =~ s|^"(.*)"$|$1|s)
		{$rv =~ s|""|"|sg}
	
	# escapes
	my @sets = split m|(\\.)|, $rv;
	
	grep {
		s|\\0|$nullchar|o;
		s|\\z|$wineof|o;
		s|\\t|\t|;
		s|\\r|\r|;
		s|\\n|\n|;
		s|\\b|\b|;
		s|\\(.)|$1|;
		} @sets;