Model::Story: add hard_delete method for future use

diff --git a/src/newslash_web/lib/Newslash/Model/Stories.pm b/src/newslash_web/lib/Newslash/Model/Stories.pm
index 92f9353..92789bc 100644 (file)
--- a/src/newslash_web/lib/Newslash/Model/Stories.pm
+++ b/src/newslash_web/lib/Newslash/Model/Stories.pm
@@ -961,4 +961,34 @@ sub _generalize {
     }
 }
 
+# delete story from database
+# this method is for test purpose only.
+sub hard_delete {
+    my $self = shift;
+    my $params = {@_};
+
+    my $stoid = $params->{stoid};
+    return if !$stoid;
+
+    my $sql;
+
+    # delete discussions item
+    $sql = <<"EOSQL";
+DELETE FROM discussions WHERE stoid = ?
+EOSQL
+
+    # delete firehose item
+    # delete firehose_text item
+    # delete firehose_topics_rendererd item
+    # delete globjs
+    # delete stories item
+    # delete story_param
+    # delete story_text
+    # delete story_topics_chosen
+    # delete story_topics_rendered
+    # delete tags
+
+    return;
+}
+
 1;