batch inserts!

1 files changed, 16 insertions, 7 deletions

diff --git a/lib/App/MediaControl/DB.rakumod b/lib/App/MediaControl/DB.rakumod
index 20fe956..f4e908c 100644
--- a/lib/App/MediaControl/DB.rakumod
+++ b/lib/App/MediaControl/DB.rakumod
@@ -54,19 +54,28 @@ class App::MediaControl::DB {
             END
         }
     }
-    
-    method add-entry(Str:D() :$path! is copy, Str:D() :$name!, Bool:D() :$is-dir!) {
-        $path ~~ s{<!after '/'>$} = '/';
-        $path ~~ s{<!before '/'>^} = '/';
 
-        note "add-entry($path,$name)";
+    subset Entry of Associative where :(
+        Str:D() :path($)! is copy,
+        Str:D() :name($)!,
+        Bool:D() :is-dir($)!,
+    );
+    method add-entries(@entries where { .all ~~ Entry }) {
+        my $values = 'VALUES ' ~ ('(?, ?, ?)' xx @entries).join(',');
+        my @binds = @entries.map(
+            -> (:$path is copy, :$name, :$is-dir) {
+                $path ~~ s{<!after '/'>$} = '/';
+                $path ~~ s{<!before '/'>^} = '/';
+                ($path,$name,$is-dir).Slip;
+            });
+
         self!db: {
-            .query(q:to/END/, :$path, :$name, :is_dir($is-dir));
+            .query(qq:to/END/, |@binds);
             WITH parent(id,path) AS (
                 SELECT id, path || name || '/' FROM files
             ),
             newrow(path,name,is_dir) AS (
-                VALUES($path, $name, $is_dir)
+                $values
             )
             INSERT INTO files(parent_id,path,name,is_dir,seen)
             SELECT id, newrow.path, name, is_dir, true