Acme-Affinity
view release on metacpan or search on metacpan
use Acme::Affinity;
use List::Util 'shuffle';
use Term::Choose;
use Term::Clear ();
# https://www.eharmony.com/dating-advice/first-dates/15-great-first-date-questions/
my $questions = [
{ i => 1,
q => 'Who are the most important people in your life?',
a => ['parents', 'kids', 'friends'] },
{ i => 2,
q => 'What makes you laugh?',
a => ['jokes', 'comedies', 'pranks', 'accidents'] },
{ i => 3,
q => 'Where is "home"?',
a => ['here', 'across the country', 'in another country'] },
{ i => 4,
q => 'Do you read reviews, or just go with your gut?',
a => ['reviews', 'gut'] },
{ i => 5,
( run in 0.224 second using v1.01-cache-2.11-cpan-4d50c553e7e )