Browse files

Getting closer.

  • Loading branch information...
1 parent 32e4544 commit d283792c87f960b79943483c5f47a9f3bb8e4e5b @jkeenan committed Jul 4, 2012
Showing with 13 additions and 1 deletion.
  1. +13 −1 t/stdout.t
View
14 t/stdout.t
@@ -53,7 +53,19 @@ unlink $captured_html if (-e $captured_html);
my $cmd = qq{$^X -Ilib -mPod::Html -e '};
#$cmd .= qq{print "Hello world\n"};
$cmd .= qq{Pod::Html::pod2html(};
-$cmd .= qq{"--infile=$infile" };
+$cmd .= qq{"--infile=$infile", };
+$cmd .= qq{"--outfile=-", };
+$cmd .= qq{"--backlink", };
+$cmd .= qq{"--css=style.css", };
+$cmd .= qq{"--header", }; # no styling b/c of --ccs
+$cmd .= qq{"--htmldir=$htmldir", };
+$cmd .= qq{"--noindex", };
+$cmd .= qq{"--podpath=t", };
+$cmd .= qq{"--podroot=$cwd", };
+#$cmd .= qq{"--title=$title", };
+#$cmd .= qq{"--title=\'a title\'", };
+$cmd .= qq{"--quiet", };
+$cmd .= qq{"--libpods=perlguts:perlootut" };
$cmd .= q{)};
$cmd .= q{'};
$cmd .= qq{ 1> $captured_html};

0 comments on commit d283792

Please sign in to comment.