fined $href and defined $text; $extra ||= ''; $extra = " $extra" if $extra; # just to make it EXACTLY identical to the old way. return qq'$text$extra\n'; } sub boilerplate { return boiler_header() . boiler_links(); } sub boiler_header { return <<'HERE'; ActivePerl User Guide - Table of Contents

Table of Contents

HERE } sub boiler_links { my $retval = <
HERE return $retval; } sub PerlEx_links { return "" unless -e "$ActivePerl::DocTools::TOC::dirbase/PerlEx/Welcome.html"; return <PerlEx HERE } 1;