quote-identifier

raku-community-modules · Sep 29, 2012 · 1cb4082 · 1cb4082
1 parent 44c09e2
commit 1cb4082
Show file tree

Hide file tree

Showing 2 changed files with 16 additions and 0 deletions.
diff --git a/lib/DBDish.pm6 b/lib/DBDish.pm6
@@ -112,6 +112,18 @@ role DBDish::Connection does DBDish::ErrorHandling {
         $sth.execute(@params);
     }
 
+=begin pod
+=head5 quote-identifier
+
+Returns the string parameter as a quoted identifier
+
+=end pod
+
+    method quote-identifier(Str:D $name) {
+        # a first approximation
+        qq["$name"];
+    }
+
 =begin pod
 =head5 disconnect
 The C<disconnect> method 

diff --git a/lib/DBDish/mysql.pm6 b/lib/DBDish/mysql.pm6
@@ -264,6 +264,10 @@ class DBDish::mysql::Connection does DBDish::Connection {
         mysql_close($!mysql_client);
         True
     }
+
+    method quote-identifer(Str:D $name) {
+        qq[`$name`];
+    }
 }
 
 class DBDish::mysql:auth<mberends>:ver<0.0.1> {