use Exporter;
our @ISA = qw( Exporter );
-our @EXPORT = qw( fatal_error error hint debug msg
- print_errors print_hints print_debug print_msgs );
+our @EXPORT = qw( fatal_error error hint debug msg note
+ print_errors print_hints print_debug print_msgs
+ print_notes );
our $debug = 0;
-our (@fatal_errors, @errors, @debug, @msgs, @hints);
+our (@fatal_errors, @errors, @debug, @msgs, @hints, @notes);
sub reset {
- @fatal_errors = @errors = @debug = @msgs = @hints = ();
+ @fatal_errors = @errors = @debug = @msgs = @hints = @notes = ();
}
sub fatal_error {
sub msg {
push @msgs, $_[0];
}
+sub note {
+ push @notes, $_[0];
+}
+sub notes {
+ push @notes, [ @_ ];
+}
sub print_errors {
return unless @fatal_errors || @errors;
print '<div style="background-color:#F99;font-weight:bold;padding:0.5em;margin:0;">';
print "$_\n";
}
print '</pre></div>';
-
}
sub print_hints {
return unless @hints;
print "<p>$_</p>";
}
}
+sub print_notes {
+ foreach (@notes) {
+ my ( $title, $note ) = @$_;
+ my $str = "";
+
+ if ($note) {
+ $str .= "<h2 class=\"pred\">$title</h2>";
+ } else {
+ $note = $title;
+ }
+ $str .= "<p>$note</p>";
+ return $str;
+ }
+}
1;