Introducing a very barebones admin UI for managing buckets. I would

[catagits/App-IdiotBox.git] / lib / App / IdiotBox / Store / SQLite.pm

diff --git a/lib/App/IdiotBox/Store/SQLite.pm b/lib/App/IdiotBox/Store/SQLite.pm
index 104472b..be69881 100644 (file)
--- a/lib/App/IdiotBox/Store/SQLite.pm
+++ b/lib/App/IdiotBox/Store/SQLite.pm
@@ -128,8 +128,13 @@ sub _bind_buckets {
           (slug, name)
         VALUES
           (?, ?)
-      }
-
+      },
+      delete_one => q{
+        DELETE FROM buckets WHERE slug = ?
+      },
+      update_one => q{
+        UPDATE buckets SET slug = ?, name = ? WHERE slug = ?
+      },
     }
   )
 }