package LXDebug;
-use constant {
- NONE => 0,
- INFO => 1,
- DEBUG1 => 2,
- DEBUG2 => 3,
+use constant NONE => 0;
+use constant INFO => 1;
+use constant DEBUG1 => 2;
+use constant DEBUG2 => 3;
- FILE_TARGET => 0,
- STDERR_TARGET => 1
- };
+use constant FILE_TARGET => 0;
+use constant STDERR_TARGET => 1;
use POSIX qw(strftime);
eval("use Data::Dumper");
$data_dumper_available = $@ ? 0 : 1;
- $global_level = NONE;
+ $global_level = NONE;
$global_trace_subs = 0;
}
my $type = shift;
my $self = {};
- $self->{"calldepth"} = 0;
- $self->{"file"} = "/tmp/lx-office-debug.log";
- $self->{"target"} = FILE_TARGET;
- $self->{"level"} = 0;
+ $self->{"calldepth"} = 0;
+ $self->{"file"} = "/tmp/lx-office-debug.log";
+ $self->{"target"} = FILE_TARGET;
+ $self->{"level"} = 0;
$self->{"trace_subs"} = 0;
while ($_[0]) {
- $self->{$_[0]} = $_[1];
+ $self->{ $_[0] } = $_[1];
shift;
shift;
}
my ($self, $target, $file) = @_;
if ((FILE_TARGET == $target) && $file) {
- $self->{"file"} = $file;
+ $self->{"file"} = $file;
$self->{"target"} = FILE_TARGET;
} elsif (STDERR_TARGET == $target) {
if (!defined($package)) {
$self->_write("enter_sub", $indent . "top-level?\n");
} else {
- $self->_write("enter_sub", $indent . "${subroutine} in " .
- "${self_filename}:${self_line} called from " .
- "${filename}:${line}\n");
+ $self->_write("enter_sub",
+ $indent
+ . "${subroutine} in "
+ . "${self_filename}:${self_line} called from "
+ . "${filename}:${line}\n");
}
}
if (!defined($package)) {
$self->_write("leave_sub", $indent . "top-level?\n");
} else {
- $self->_write("leave_sub", $indent . "${subroutine} in " .
- "${self_filename}:${self_line}\n");
+ $self->_write("leave_sub",
+ $indent . "${subroutine} in " . "${self_filename}:${self_line}\n");
}
}
}
if ($log_level >= $level) {
- $self->_write(INFO == $level ? "info" :
- DEBUG1 == $level ? "debug1" : "debug2",
+ $self->_write(INFO == $level
+ ? "info"
+ : DEBUG1 == $level ? "debug1" : "debug2",
$message);
}
}
if ($data_dumper_available) {
$self->message($level, "dumping ${name}:\n" . Dumper($variable));
} else {
- $self->message($level, "dumping ${name}: Data::Dumper not available; " .
- "variable cannot be dumped");
+ $self->message($level,
+ "dumping ${name}: Data::Dumper not available; "
+ . "variable cannot be dumped");
}
}
chomp($message);
- if ((FILE_TARGET == $self->{"target"}) &&
- open(FILE, ">>" . $self->{"file"})) {
+ if ((FILE_TARGET == $self->{"target"})
+ && open(FILE, ">>" . $self->{"file"})) {
print(FILE "${date}${message}\n");
close(FILE);
- } elsif (STDERR_TARGET == $self->{"target"}) {
+ } elsif (STDERR_TARGET == $self->{"target"}) {
print(STDERR "${date}${message}\n");
}
}