DB<13> n
Net::DBus::RemoteService::get_object(/usr/lib/perl5/Net/DBus/RemoteService.pm:144):
144:	    if (@_) {
  DB<13> l
144==>	    if (@_) {
145:		my $interface = shift;
146:		return $self->{objects}->{$object_path}->as_interface($interface);
147 	    } else {
148:		return $self->{objects}->{$object_path};
149 	    }
150 	}
151
152:	1;
153
  DB<13> x @_
0  undef
  DB<14> n
Net::DBus::RemoteService::get_object(/usr/lib/perl5/Net/DBus/RemoteService.pm:145):
145:		my $interface = shift;
  DB<14> n
Net::DBus::RemoteService::get_object(/usr/lib/perl5/Net/DBus/RemoteService.pm:146):
146:		return $self->{objects}->{$object_path}->as_interface($interface);
  DB<14> x $interface
0  undef
##</code><code>##

135 	sub get_object {
136:	    my $self = shift;
137:	    my $object_path = shift;
138
139:	    unless (defined $self->{objects}->{$object_path}) {
140:		$self->{objects}->{$object_path} = Net::DBus::RemoteObject->new($self,
141 										$object_path);
142 	    }
143
144:	    if (@_) {
145:		my $interface = shift;
146==>		return $self->{objects}->{$object_path}->as_interface($interface);
147 	    } else {
148:		return $self->{objects}->{$object_path};
149 	    }
150 	}