Move MarkdownPost to its own file

blog

@@ -2,6 +2,7 @@
 use v6.e.PREVIEW;
 
 use DB;
+use DB::MarkdownPost;
 
 my %*SUB-MAIN-OPTS =
     :named-anywhere,
@@ -83,7 +84,7 @@ multi MAIN(
     my $db = load-db $db-file;
     my $id =
         $db.insert-post:
-        DB::MarkdownPost.new(
+        MarkdownPost.new(
             source => $source.absolute.IO,
             posted-at => $posted-at,
             hidden => $hidden,

lib/DB.rakumod

@@ -8,18 +8,7 @@ use JSON::Class:auth<zef:vrurg>;
 
 use DB::Post;
 use DB::BlogMeta;
-
-#| A plain markdown post
-class MarkdownPost does Post is json {
-    #| Marker for disambiguation between post types in json representation, the
-    #| cheaty way
-    has Bool:D $.markdown = True;
-
-    method title(--> Str:D) {
-        markdown-title($!source)
-    }
-}
-
+use DB::MarkdownPost;
 
 #| A plain markdown post
 class IdrisPost does Post is json {

lib/DB/MarkdownPost.rakumod

@@ -0,0 +1,17 @@
+use v6.e.PREVIEW;
+
+use Pandoc;
+use JSON::Class:auth<zef:vrurg>;
+
+use DB::Post;
+
+#| A plain markdown post
+unit class MarkdownPost does Post is json;
+
+#| Marker for disambiguation between post types in json representation, the
+#| cheaty way
+has Bool:D $.markdown = True;
+
+method title(--> Str:D) {
+    markdown-title($!source)
+}