-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,
+ };