package CutSys::URI;
use strict;
use warnings;

sub primitive_escape {
	my $primitive = shift;

	$primitive =~ s/[\x3A-\x40\x22-\x26\x00-\x1F\x7F\s"]/'%'.sprintf '%x', ord $&/ge;
	return $primitive;
}
1;