Basci atom feed generation

lib/DB/BlogMeta.rakumod

@@ -16,3 +16,16 @@ has Int:D $.placeholder-id is rw = 0;
 
 #| The id of the about post
 has Int:D $.about-id is rw = 0;
+
+#| The base url of this post
+has Str:D $.base-url is required;
+
+#| Return the base url, but substitute it out if the test environment variable
+#| is set
+method get-base-url(--> Str:D) {
+   if %*ENV<BLOG_TEST> {
+       "http://localhost:8080"
+   } else {
+       $!base-url
+   }
+}

lib/DB/Post.rakumod

@@ -43,6 +43,15 @@ has Bool:D $.hidden is json is rw = False;
 #| document produced it
 method title(--> Str:D) {...}
 
+#| The time the post was last updated at
+method updated(--> DateTime:D) {
+    if @!edited-at {
+        @!edited-at.max
+    } else {
+        $!posted-at
+    }
+}
+
 #| Get the list of slugs for this post, including ones auto generated from
 #| the title, as well as any additional slugs
 method all-slugs(--> Array[Str:D]) {