my $home = $self->can('home') ? $self->home : 
	    $self->can('house') ? $self->house(1) : 
	    confess(q{Can't determine home});