# Creates Readme.htm and Readme.txt files from Readme.pod

use strict;
push @INC, 'E:/aa/perl/lib';
require 'podtools.pl';


my $pod_filename = 'BW_Readme.pod';   # filename of pod input 

my $htm_filename = 'BW_Readme.htm';   # filename of htm output 
my $title = 'BW123321™ Readme';       # title for the htm window;
                                      # ™ is actually the (TM) symbol

my $txt_filename = 'BW_Readme.txt';   # filename of txt output


podtools::pod2_htm_txt(
        $pod_filename,
        $htm_filename,
        $title,
        $txt_filename,
                );


##</code><code>##

package podtools;

use strict;
use Pod::Html;
use Pod::Text;

sub pod2_htm_txt {
    # Creates htm and txt files from a given pod file and htm title

    my (
        $pod_filename,
        $htm_filename,
        $title,
        $txt_filename,
            ) = @_;


    # Build the '.htm' file

    pod2html(
        "--infile=$pod_filename",
        "--outfile=$htm_filename",
        "--title=$title",
        '--backlink=Back to Top',     # implants backlink after =head1
            );



    # Build the '.txt' file

    my $parser = Pod::Text->new (
                        loose => 1, # prints blank lines after =head1
                        width => 78,
                        quotes => 'none',
                            );

    # Read POD from first file and write to second.
    $parser->parse_from_file ( $pod_filename, $txt_filename );

}

1;