make Makefile.PL write README and README.md

If the necessary modules are present, create README and README.md from the POD.
Perl-Critic · Nov 1, 2014 · dcc718c · dcc718c
1 parent 2c2a7d6
commit dcc718c
Show file tree

Hide file tree

Showing 2 changed files with 810 additions and 4 deletions.
diff --git a/Makefile.PL b/Makefile.PL
@@ -3,11 +3,24 @@ use warnings;
 
 use inc::Module::Install 1.10;
 
-# only needed by author to run 'perl Makefile.PL'
-# use Module::Install::ReadmeFromPod 0.22;
-
 all_from 'lib/PPI.pm';
-readme_from 'lib/PPI.pm';    # Module::Install::ReadmeFromPod
+
+# This code is only needed by author to generate README and README.md
+eval {
+	eval "use Module::Install::ReadmeFromPod 0.22";
+	eval "use Pod::Markdown 2.002";
+
+	my $pod = 'lib/PPI.pm';
+	readme_from $pod;    # Module::Install::ReadmeFromPod
+
+	my $parser = Pod::Markdown->new;
+	open my $in,  "<", $pod;
+	open my $out, ">", "README.md";
+	if ($parser and $in and $out) {
+		$parser->parse_from_filehandle($in);
+		print $out $parser->as_markdown;
+	}
+};
 
 requires 'Clone'           => '0.30';
 requires 'File::Spec'      => win32() ? '3.2701' : '0.84';