initial commit

LICENSE

@@ -0,0 +1,31 @@
+This software is Copyright (c) 2014 by David Farrell.
+
+This is free software, licensed under:
+
+  The (two-clause) FreeBSD License
+
+The FreeBSD License
+
+Redistribution and use in source and binary forms, with or without
+modification, are permitted provided that the following conditions are
+met:
+
+  1. Redistributions of source code must retain the above copyright
+     notice, this list of conditions and the following disclaimer.
+
+  2. Redistributions in binary form must reproduce the above copyright
+     notice, this list of conditions and the following disclaimer in the
+     documentation and/or other materials provided with the
+     distribution.
+
+THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
+LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
+A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
+HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
+SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
+LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
+DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
+THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
+OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

README.pod

@@ -0,0 +1,13 @@
+=head1 URI::Escape
+
+A Perl 6 module for escaping URIs
+
+=head2 Author
+
+David Farrell
+
+=head2 License
+
+FreeBSD - see LICENSE
+
+=cut

lib/URI/Escape.pm6

@@ -0,0 +1,19 @@
+module URI::Escape
+{
+    # build two arrays of reserved encoded chars
+    # use arrays because straight-up hash transliteration only
+    # replaces 1 char on either side. E.g. " " becomes % not %20
+    my $RFC3986_unreserved = /<[\w\-.~]>/;
+
+    my (@escape_chars, @escape_encoding);
+    for (0..255) {
+        next if chr($_) ~~ /$RFC3986_unreserved/;
+        @escape_chars.push(chr($_));
+        @escape_encoding.push(sprintf("%%%02X", $_));
+    }
+
+    sub uri_escape ($text!) is export
+    {
+        return $text.trans(@escape_chars => @escape_encoding);
+    }
+}