Pod::To::HTML eliminated from class names in external files.

Refs #55. Still the same problem with strings, but that's not a
blocker right now. Please @kivikakk download new version to check this
works correctly, ping me if it does not.

ChangeLog

@@ -1,3 +1,7 @@
+2018-12-14  Juan J. merelo  <jmerelo@penny>
+
+	* 011-external.t: Adds teste mainly for integration with GitHub, and avoiding prepending package names to defined classes.
+
 2018-12-11  Juan J. merelo  <jmerelo@penny>
 
 	* META6.json: Bumps up to 0.4.1 after fixing the problem of URIzing titles and subtitles. 

META6.json

@@ -1,13 +1,14 @@
 {
     "perl"        : "6.*",
     "name"        : "Pod::To::HTML",
-    "version"     : "0.4.1",
+    "version"     : "0.5.0",
     "author" : "Perl 6",
     "description" : "Convert Perl 6 Pod to HTML",
     "license"     : "Artistic-2.0",
     "depends"     : [
 	"URI",
-	"Template::Mustache"
+	"Template::Mustache",
+        "Pod::Load"
     ],
     "test-depends" : ["Test::Output"],
     "provides"    : {

lib/Pod/To/HTML.pm

@@ -4,6 +4,7 @@ use MONKEY-SEE-NO-EVAL;
 
 use URI::Escape;
 use Template::Mustache;
+use Pod::Load;
 
 #try require Term::ANSIColor <&colored>;
 #if &colored.defined {
@@ -27,7 +28,8 @@ multi method render(Pod::Block $pod, Str :$header = '', Str :$footer = '', Str :
 }
 
 multi method render(IO::Path $file, Str :$header = '', Str :$footer = '', Str :head-fields($head) = '', :$default-title = '', :$lang = 'en') {
-    pod2html(EVAL($file.slurp ~ "\n\$=pod"), :$header, :$footer, :$head, :$default-title, :$lang);
+
+    pod2html(load($file), :$header, :$footer, :$head, :$default-title, :$lang);
 }
 
 multi method render(Str $pod-string, Str :$header = '', Str :$footer = '', Str :head-fields($head) = '', :$default-title = '', :$lang = 'en') {

t/011-external.t

@@ -1,6 +1,6 @@
 use Test; # -*- mode: perl6 -*-
 use Pod::To::HTML;
-plan 6;
+plan 8;
 
 use MONKEY-SEE-NO-EVAL;
 
@@ -16,6 +16,7 @@ sub test-files( $possible-file-path ) {
 
     my $a-pod = $example-path.IO.slurp;
     my $rendered= Pod::To::HTML.render($example-path.IO);
+    unlike( $rendered, /Pod\:\:To/, "Is not prepending class name" );
     my $pod = (EVAL ($a-pod ~ "\n\$=pod")); # use proved pod2onebigpage method
     my $r = node2html $pod;
     ok( $r, "Converting external" );