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