if $me->can(ride)
  $mount =~ s/wife/ducati/
  $me->ride($mount,{chain=>undef,to=>sunset})
else
  $me->stuck(loc=>rut)