view release on metacpan or  search on metacpan

INSTALL.perl  view on Meta::CPAN

sub test_module
 {
 my $testprog= "test.t";
 print "Testing the module...\n";
 chdir 't';  # run from that directory
 my $retcode= system ($^X, $testprog, "--quiet");
 return $retcode == 0;
 }

sub update_TOC
 {
 eval "use ActivePerl::DocTools; use Pod::Html;";
 return if $@;  # stop trying with no visible error if modules are not present.
 # This is for ActiveState Perl.  Attempting to load the module was a test to see if that's what I'm running on.
 if (convertPod2html ($dest)) {
    ActivePerl::DocTools::WriteTOC();
    print "Updated ActiveState documentation.\n";
    }
 }