my ($dummy1, $self_filename, $self_line) = caller(0);
my $indent = " " x $self->{"calldepth"}++;
my ($dummy1, $self_filename, $self_line) = caller(0);
my $indent = " " x $self->{"calldepth"}++;
if (!defined($package)) {
$self->_write('sub' . $level, $indent . "\\ $time top-level?\n");
if (!defined($package)) {
$self->_write('sub' . $level, $indent . "\\ $time top-level?\n");