4 our @ISA = qw( Exporter );
5 our @EXPORT = qw( fatal_error error hint debug msg
6 print_errors print_hints print_debug print_msgs );
10 our (@fatal_errors, @errors, @debug, @msgs, @hints);
13 @fatal_errors = @errors = @debug = @msgs = @hints = ();
17 push @fatal_errors, $_[0];
27 push(@debug, $_[0]) if $debug > $lvl;
33 return unless @fatal_errors || @errors;
34 print '<div style="background-color:#F99;font-weight:bold;padding:0.5em;margin:0;">';
35 foreach ((@fatal_errors, @errors)) {
36 print "<p>ERROR: $_</p>";
41 return unless $debug && @debug;
42 print '<div style="font-size:80%;border:solid thin grey">';
43 print '<h2>Debugging:</h2><pre>';
54 print "<p style=\"background-color:#FF9;padding:0.5em;margin:0\">$_</p>";