my $home =  @{ $self->can($self, 'home')  && [ $self->home()   ]
            || $self->can($self, 'house') && [ $self->house(1) ]
            || confess(q{Can't determine home});
            };