__END_START

my ( $module_txt, @modules ); for my $section (sort keys %$pod_section) { $module_txt .= sprintf( "=head2 %s\n\n", $section ); my $module_ref = $pod_section->{ $section };

$module_txt .= "=for :list\n";

for  my $module  (sort keys %$module_ref) {
    my $doc = $module_ref->{ $module };

    $module_txt .= sprintf( qq{= L<%s|%1\$s>\n%s\n}, $module, $doc );
    push @modules, $module;
}

$module_txt .= "\n";
}

$module_txt .= "=cut\n";

#for my $module (sort @modules) { # $module_txt .= sprintf( qq{use %s;\n}, $module ); #}

my $txt = join '', ( $begin_txt, $module_txt, "1;" );

open my $fh, '>', PATH_Mod; print {$fh} $txt; close $fh;

my $ini_txt = <<'__END_DIST__'; ; Basic author info name = Task-BeLike-LESPEA author = Adam Lesperance <lespea@gmail.com> license = Perl_5 version = %s

copyright_holder = Adam Lesperance copyright_year = 2011

[@Author::LESPEA] -remove = ReportVersions

;release = real ; ;archive = 1 ;archive_directory = releases ; ;copy_file = file1 file2 ;move_file = file3 file4 ; ;tidy_perl = 0 ; ;add_meta = 1 ; ;compile_synopsis = 1

[Prereqs] %s

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Non-Standard Win32 ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

[Signature] sign = always

[Git::Check] allow_dirty = README.pod

; Commit all the local changes [Git::Commit / Commit_Changes]

; Tag the release [Git::Tag] tag_format = release-%%v

; Finally push the changes to git [Git::Push] push_to = origin __END_DIST__

open $fh, '>', BAT_FILE; my $module_versions; for my $module (sort @modules) { $module_versions .= sprintf( qq{%s = %f\n}, $module, $version_override->{$module} || 0); printf {$fh} "call ppm install %s\n", $module; } close $fh;

open $fh, '>', PATH_Dist; printf {$fh} $ini_txt, VERSION, $module_versions; close $fh;