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");