4 our @ISA = qw( Exporter );
5 our @EXPORT = qw( fatal_error error hint debug msg note
6 print_errors print_hints print_debug print_msgs
9 # define this to 0 in production mode
10 use constant DEBUG => 1;
13 our (@fatal_errors, @errors, @debug, @msgs, @hints, @notes);
16 @fatal_errors = @errors = @debug = @msgs = @hints = @notes = ();
20 push @fatal_errors, $_[0];
30 push(@debug, $_[0]) if $debug > $lvl;
39 return unless @fatal_errors || @errors;
40 print '<div class="perror">';
41 foreach ((@fatal_errors, @errors)) {
42 print "<p>ERROR: $_</p>";
47 return unless $debug && @debug;
48 print '<div class="pdebug">';
49 print '<h2>Debugging:</h2><pre>';
57 print '<div class="phints">';
64 print '<div class="pmsgs">';
72 my ( $title, $note ) = @$_;
74 print '<div class="pnotes">';
76 print "<h2>$title</h2>";
80 print "<p>$note</p></div>";