__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) {
        die "Bad module name: '$module'"  unless  $module =~ qr/
            \A
            (?:
                \w+
                (?:
                    [:]{2}
                    (?=\w)
                )?
            )+
            \z
        /xms;

        my $doc = $module_ref->{ $module };

        $module_txt .= sprintf( qq{= L<%s|%1\$s>\n%s\n}, $module, $doc );
        die "The module $module was listed more than once!"  if  exists $modules{ $module };
        $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, '>:encoding(utf8)', PATH_Mod; binmode $fh, ':raw'; $fh->print( $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 = 2012

[@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

; Test our links since this is a task module [Test::Pod::No404s] [Test::Pod::LinkCheck]

[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, '>:encoding(utf8)', BAT_FILE; my $module_versions; for my $module (sort keys %modules) { $module_versions .= sprintf( qq{%s = %f\n}, $module, $version_override->{$module} || 0); $fh->printf( "call ppm install %s\n", $module ); } close $fh;

open $fh, '>:encoding(utf8)', PATH_Dist; binmode $fh, ':raw'; $fh->printf( $ini_txt, VERSION, $module_versions ); close $fh;