[Viper] early prototype ORM

Makefile.in

@@ -8,7 +8,7 @@ SOURCES=lib/Routes.pm lib/Routes/Route.pm \
 	lib/Web/Utils.pm \
 	lib/Web/Request.pm lib/Web/Response.pm \
     lib/Handler/HTTPDaemon.pm \
-	lib/Astaire.pm
+	lib/Astaire.pm lib/Viper.pm
 
 PIRS=$(SOURCES:.pm=.pir)
 

deps.proto

@@ -1,2 +1,3 @@
 # These are the dependencies needed by Web.pm
 http-daemon
+csv

drafts/blog-example

@@ -0,0 +1,17 @@
+use v6;
+use Viper;
+
+class User is Viper::Base {
+}
+
+class Post is Viper::Base {
+    has $user_id is persisted;
+}
+
+class Comment is Viper::Base {
+    has $user_id is persisted;
+}
+
+my $session = Viper.new( :types[User, Post, Comment], :db('data/') );
+my Post @posts = Post.find($session, :all);
+say .name for @posts;

lib/Viper.pm

@@ -0,0 +1,45 @@
+use Text::CSV;
+
+class Viper {
+    has $.db;
+    has %.objects;
+
+    submethod BUILD(:@types!, :$db!) {
+        $!db    = $db;
+        if $db !~~ :e {
+            run("mkdir $db");
+        }
+        for @types -> $type {
+            my $filename = $!db ~ '/' ~ $type.substr(0,-2);
+            if $filename !~~ :e {
+                self.create-new-db-file($type, $filename);
+                %!objects{$type} = [];
+            }
+            else {
+                %!objects{$type}
+                    = Text::CSV.parse-file($filename, :output($type));
+            }
+        }
+    }
+
+    submethod create-new-db-file($type, $filename) {
+        my @columns = $type.^attributes>>.name>>.substr(2); # w/o sigil/twigil
+        my $dbfile = open($filename, :w)
+            or die $!;
+        $dbfile.say: join(',', map { quote($_) }, @columns);
+    }
+
+    sub quote($s) { qq["$s"] }
+}
+
+class Viper::Base {
+    has $.id is persisted;
+    has $.name is persisted;
+
+    method find(Viper $session, :$all) {
+        return $session.objects{self}.list;
+    }
+}
+
+multi trait_mod:<is>(AttributeDeclarand $a, :$persisted!) {
+}