From 64045f7eb1c3d6ebd8d917891dc7032aa525b038 Mon Sep 17 00:00:00 2001 From: Tom Feist Date: Mon, 18 Apr 2011 15:29:22 +0100 Subject: readme_generator: now producing POD output. --- readme_generator.pl | 14 +++----------- 1 file changed, 3 insertions(+), 11 deletions(-) (limited to 'readme_generator.pl') diff --git a/readme_generator.pl b/readme_generator.pl index 5052afb..e93239e 100644 --- a/readme_generator.pl +++ b/readme_generator.pl @@ -37,19 +37,9 @@ sub wanted { return if $file =~ m/^\./; _err("processing file: $path"); - #read_input_file($dir, $file); create_output_file($dir, $file); } -sub read_input_file { - my ($dir, $filename) = @_; - - my $filepath = File::Spec->catfile($dir, $filename); - _err("reading $filepath"); - - create_output_file($dir, "README.md", $parser); -} - sub create_output_file { my ($dir, $in_file) = @_; @@ -68,13 +58,15 @@ sub create_output_file { my $mode = $overwrite ? '>' : '>>'; - _err("Writing to $mode $filepath"); + _err("Writing to $mode $out_file_path"); open my $wfh, $mode, $out_file_path or die "Couldn't open $out_file_path for $mode output: $!"; $parser->parse_from_file($in_file_path, $wfh); + print $wfh "\n\n=cut\n\n"; + close $wfh; } -- cgit v1.2.3