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