my $meth_name = (grep {$self->can($_)} qw(home house))[0] || confess(q{Can't determine home});
my $home = $self->$meth_name(1);