Class redesigned

It now hides all underlying complexity of the CU classes, and avoids user from finding nqp and CU stuff

Author: JJ

lib/CompUnit/PrecompilationRepository/Document.pm6

@@ -1,20 +1,52 @@
 use v6.*;
 use nqp;
+constant default-cache-dir = ".doc-cache";
 
 class CompUnit::PrecompilationRepository::Document is CompUnit::PrecompilationRepository::Default {
 
+    my $precomp-store;
     has Str $.doc-name;
+    has IO::Path $.doc-path;
     has Str $!key;
+    has $!precompiled-pod;
+    has $!handle;
 
-    submethod TWEAK {
-        $!key = key-for($!doc-name)
+    #| Initializes the class variable that contains the precomp store
+    sub init( $prefix = default-cache-dir ) is export {
+        $precomp-store =
+                CompUnit::PrecompilationStore::File.new(
+                        prefix => $prefix.IO
+                        );
     }
 
-    method key() { $!key }
+    method new( $doc-path ) {
+        init() unless $precomp-store;
+        my $this-path = IO::Path.new( $doc-path );
+        fail("Path $this-path not found") if ! $this-path.e;
+        my $doc-name = $this-path.basename;
+        self.bless(
+                doc-path => $this-path,
+                doc-name => $doc-name,
+                store => $precomp-store
+                );
+    }
+
+    submethod TWEAK() {
+        $!key = key-for( $!doc-name);
+        self.precompile($!doc-path, $!key, :force );
+        $!handle = self.load($!key)[0];
+        $!precompiled-pod = nqp::atkey($!handle.unit,'$=pod')[0];
+    }
+
+    method key() {
+        $!key
+    }
+
+    method precompiled-pod() { $!precompiled-pod }
 
     #! Provides a key for the document with that particular name
     sub key-for( Str $doc-name --> Str ) is export {
-        nqp::sha1($doc-name);
+        return nqp::sha1($doc-name);
     }
 
 }

t/007-load-precompile.t

@@ -6,20 +6,16 @@ use File::Directory::Tree;
 use nqp;
 
 constant cache-name = "cache";
-my $precomp-store = CompUnit::PrecompilationStore::File.new(prefix =>
-        cache-name.IO );
+init( cache-name );
 
 for <simple sub/simple> -> $doc-name {
-    my $precomp = CompUnit::PrecompilationRepository::Document.new(
-            store => $precomp-store,
-            doc-name => $doc-name );
+    my $precomp =
+            CompUnit::PrecompilationRepository::Document.new(
+                    "t/doctest/$doc-name.pod6");
     ok( $precomp.key, "Key precomputed");
     like( $precomp.key, /<[0..9 A..F]>+/, "Hexa key is correct");
-    $precomp.precompile("t/doctest/$doc-name.pod6".IO,
-        $precomp.key, :force );
-    my $handle = $precomp.load($precomp.key)[0];
-    my $precompiled-pod = nqp::atkey($handle.unit,'$=pod')[0];
-    is-deeply $precompiled-pod, $=pod[0], "Load precompiled pod $doc-name";
+    is-deeply $precomp.precompiled-pod, $=pod[0], "Load precompiled pod
+$doc-name";
 }
 
 rmtree(cache-name);