my $data_dumper_available;
+our $global_level;
+our $watch_form;
+
BEGIN {
eval("use Data::Dumper");
$data_dumper_available = $@ ? 0 : 1;
$global_level = NONE;
+ $watch_form = 0;
}
sub new {
sub message {
my ($self, $level, $message) = @_;
- $self->_write(level2string($level), $message) if (($self->{"level"} | $global_level) & $level);
+
+ $self->_write(level2string($level), $message) if (($self->{"level"} | $global_level) & $level || !$level);
}
sub dump {
print(FILE "${date}${message}\n");
close(FILE);
- } elsif (STDERR_TARGET == $self->{"target"}) {
+ } elsif (STDERR_TARGET == $self->{"target"}) {
print(STDERR "${date}${message}\n");
}
}