Introduced collations
Change-Id: I36b471a1e8565bf220a280d4acaaa5838d563384
diff --git a/lib/Krawfish/Index/Dictionary/Collations.pm b/lib/Krawfish/Index/Dictionary/Collations.pm
new file mode 100644
index 0000000..efb8bb2
--- /dev/null
+++ b/lib/Krawfish/Index/Dictionary/Collations.pm
@@ -0,0 +1,23 @@
+package Krawfish::Index::Dictionary::Collations;
+use Krawfish::Index::Dictionary::Collation;
+use strict;
+use warnings;
+
+# Get the collation based on the locale
+# This currently does not support collation ids!
+sub new {
+ my $class = shift;
+
+ # Store collations as locales
+ bless {}, $class;
+};
+
+
+# Get collation
+sub get {
+ my ($self, $locale) = @_;
+ return $self->{$locale} //= Krawfish::Index::Dictionary::Collation->new($locale);
+};
+
+
+1;