sub cando {
   my $o = shift;
   my $m = shift;
   return if !eval { $o->can($m) };
   return $o->$m(@_);
}

my $home =  cando($self, 'home')
         // cando($self, 'house', 1)
         // confess(q{Can't determine home});

##</code><code>##

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