Model::Events: add delete_all()

diff --git a/src/newslash_web/lib/Newslash/Model/Events.pm b/src/newslash_web/lib/Newslash/Model/Events.pm
index 17a997a..01224fd 100644 (file)
--- a/src/newslash_web/lib/Newslash/Model/Events.pm
+++ b/src/newslash_web/lib/Newslash/Model/Events.pm
@@ -161,4 +161,20 @@ sub fetch {
     return;
 }
 
+sub delete_all {
+    my $self = shift;
+    my $table = EVENTS_TABLE_NAME;
+    my $sql = "DELETE FROM $table";
+
+    my $dbh = $self->connect_db;
+    my $rs = $dbh->do($sql);
+    if (!defined $rs) {
+        $self->set_error("delete failed", $dbh->{mysql_errorno});
+        $self->disconnect_db;
+        return;
+    }
+    $self->disconnect_db;
+    return $rs;
+}
+
 1;