view release on metacpan or  search on metacpan

lib/App/karr/Cmd/AgentName.pm  view on Meta::CPAN

      push @words, lc $_ if /^[a-z]{4,8}$/i;
    }
    close $fh;
  }

  # Fallback word list
  unless (@words) {
    @words = qw(
      able acid aged also area army away baby back ball band bank base bath
      bear beat been bell best bill bird bite blow blue boat body bomb bond
      bone book born boss bulk burn busy cake call calm came camp card care
      cash cast cell chat chip city claim clan clay clip club coal coat code
      coin cold come cook cool cope copy core cost crew crop dark data date
      dawn dead deal dear debt deep deny desk diet dirt disc disk dock does
      done door dose down draw drew drop drug dual duke dull dust duty each
      earn ease east easy edge else even ever evil exam exec face fact fail
      fair fall fame farm fast fate fear feed feel fell file fill film find
      fine fire firm fish five flat fled flew flip flow fold folk fond font
      food foot ford form fort four free from fuel full fund gain game gang
      gate gave gear gift girl give glad goal goes gold golf gone good grab
      gray grew grid grip grow gulf guru hack half hall hand hang harm hate