-sub print_hints {
- return unless @hints;
- print '<div class="phints">';
- foreach (@hints) {
- print "<p>$_</p>";
- }
- print '</div>';
-}
-sub print_msgs {
- print '<div class="pmsgs">';
- foreach (@msgs) {
- print "<p>$_</p>";
- }
- print '</div>';
-}
-sub print_notes {
- foreach (@notes) {
- my ( $title, $note ) = @$_;
-
- print '<div class="pnotes">';
- if ($note) {
- print "<h2>$title</h2>";
- } else {
- $note = $title;
- }
- print "<p>$note</p></div>";
- }
+sub get_msgs { @msgs };
+sub get_hints { @hints };
+sub get_notes { @notes };
+sub get_all_messages {
+ return {
+ errors => [ @fatal_errors, @errors ],
+ debugs => $debug ? \@debug : [],
+ msgs => \@msgs,
+ hints => \@hints,
+ notes => \@notes,
+ };