From 20b5d0949b684d57ed2e637e88e99e033d775cd3 Mon Sep 17 00:00:00 2001
From: Ian Kluft <ko6yq.dev+github@gmail.com>
Date: Sun, 26 Nov 2023 23:58:50 -0800
Subject: [PATCH] experiment with names for rating delimiters

---
 src/perl/kr2/lib/PrefVote/KR2.pm | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/src/perl/kr2/lib/PrefVote/KR2.pm b/src/perl/kr2/lib/PrefVote/KR2.pm
index bc752b3..195c70e 100644
--- a/src/perl/kr2/lib/PrefVote/KR2.pm
+++ b/src/perl/kr2/lib/PrefVote/KR2.pm
@@ -40,6 +40,14 @@ PrefVote::Core::TestSpec->register_blackbox_spec(
 );
 __PACKAGE__->ballot_input_ties_policy(1);    # set flag for Core: this class allows input ballots to set A/B ties
 
+# rating levels
+Readonly::Hash my %rating_levels =>
+{
+    1 => [],
+    3 => [ qr( favor oppose ) ],
+    5 => [ qr( favor2 favor1 oppose1 oppose2 ) ],
+}
+
 # list of names of winners in order by place, ties shown by a set of the tied candidates
 has winners => (
     is          => 'rw',