Getting better at #18

Seeing some light at the end of the tunnel for #16 and #13. Also just eliminating debug code. And found also #18

t/040-pod-extraction.t

@@ -19,16 +19,15 @@ diag 'Test pod extraction';
 
 mkdir DOC;
 (DOC ~ '/a-pod-file.pod6').IO.spurt(q:to/POD-CONTENT/);
-    =pod A test file
-    =TITLE This is a title
+=begin pod
+=TITLE This is a title
 
-    Some text
-
-    =end pod
+Some text
+=end pod
 POD-CONTENT
 
 $cache .= new( :source( DOC ), :path( REP ), :!verbose);
-# $cache.update-cache;
+$cache.update-cache;
 
 #--MARKER-- Test 1
 ok $cache.pod('a-pod-file')[0] ~~ Pod::Block::Named, 'pod is returned from cache';