/usr/bin/perl-MObject -le 'my $cIn the past, I'd keep track of my  = Object->new("192.168.1.63"); $c->ping() or die $c->errstr();'
soap:Server, invalid login/password
 at -e line 1.
 at -e line 1.

##</code><code>##

# Print Debug output
sub p_debug {
  my $self = shift;
  return unless $self->{'DEBUG'};
  
  printf "DEBUG: [%04f] %s%s\n", delta_time($last), (' ' x $indent), sprintf(shift @_, @_);
  return
}

# Th old way of tracking indent forced me to make sure I was incrementing and decrementing when required.  I was looking for a way to automatically increment on entry and automatically decrement on return
sub ping {
  my $self = shift;
  $self->{'INDENT'}++;
  ....
  $self->{'INDENT'}--;
  return $result;
}

##</code><code>##

/usr/bin/perl-MObject -le 'my $cIn the past, I'd keep track of my  = Object->new("192.168.1.63"); $c->ping() or die $c->errstr();'
DEBUG: 0.0033 Object::echo(): sending data to soap server to be echoed back.
DEBUG: 0.0034  Object::ping(): pinging SOAP interface.
DEBUG: 0.0275   Object::login(): authenticating on service.
DEBUG: 1.5343   Object::login(): token 828609a7e43e4ce22131694bed3f6a71.
DEBUG: 1.5346   Object::login(): authenticated.
DEBUG: 2.9340  Object::ping(): SOAP interface up.
DEBUG: 3.1558 Object::echo(): complete.