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 	}