X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FApp%2FIdiotBox%2FStore%2FSQLite.pm;h=be69881edb829bfda714d00136c2c805e57e230a;hb=26b4958ec93a29fb6918934f2b4fab0541bad2fd;hp=dfd094925cc96af5ad3ef585c6d296db31d6519e;hpb=de247f1b00c98697c80d7b558ccc473af7b2d6c9;p=catagits%2FApp-IdiotBox.git

diff --git a/lib/App/IdiotBox/Store/SQLite.pm b/lib/App/IdiotBox/Store/SQLite.pm
index dfd0949..be69881 100644
--- a/lib/App/IdiotBox/Store/SQLite.pm
+++ b/lib/App/IdiotBox/Store/SQLite.pm
@@ -108,6 +108,7 @@ sub _bind_buckets {
     $_[0],
     App::IdiotBox::Inflator::Bucket->new({
       all_columns => [ qw(slug name) ],
+      body_columns => [ qw(slug name) ],
       spec_columns => [ qw(slug) ],
       class => 'App::IdiotBox::Bucket',
       raw => $_[0],
@@ -122,6 +123,18 @@ sub _bind_buckets {
         FROM buckets
         WHERE slug = ?
       },
+      insert_one => q{
+        INSERT INTO buckets
+          (slug, name)
+        VALUES
+          (?, ?)
+      },
+      delete_one => q{
+        DELETE FROM buckets WHERE slug = ?
+      },
+      update_one => q{
+        UPDATE buckets SET slug = ?, name = ? WHERE slug = ?
+      },
     }
   )
 }