Move pragmas to the top

Raku · Dec 14, 2018 · e4cebe3 · e4cebe3
1 parent 4209c9a
commit e4cebe3
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 2 deletions.
diff --git a/lib/Pod/To/HTML.pm b/lib/Pod/To/HTML.pm
@@ -1,4 +1,7 @@
 unit class Pod::To::HTML;
+
+use MONKEY-SEE-NO-EVAL;
+
 use URI::Escape;
 use Template::Mustache;
 
@@ -24,12 +27,10 @@ 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') {
-    use MONKEY-SEE-NO-EVAL;
     pod2html(EVAL($file.slurp ~ "\n\$=pod"), :$header, :$footer, :$head, :$default-title, :$lang);
 }
 
 multi method render(Str $pod-string, Str :$header = '', Str :$footer = '', Str :head-fields($head) = '', :$default-title = '', :$lang = 'en') {
-    use MONKEY-SEE-NO-EVAL;
     pod2html(EVAL($pod-string ~ "\n\$=pod"), :$header, :$footer, :$head, :$default-title, :$lang);
 }
 

diff --git a/t/011-external.t b/t/011-external.t
@@ -15,7 +15,10 @@ sub test-files( $possible-file-path ) {
     my $example-path = $possible-file-path.IO.e??$possible-file-path!!"t/$possible-file-path";
 
     my $a-pod = $example-path.IO.slurp;
+    my $rendered= Pod::To::HTML.render($example-path.IO);
+    say $rendered;
     my $pod = (EVAL ($a-pod ~ "\n\$=pod")); # use proved pod2onebigpage method
+    say $pod.perl;
     my $r = node2html $pod;
     ok( $r, "Converting external" );
     unlike( $r, /Pod\:\:To/, "Is not prepending class name" );