Improve ranking mechanism
Change-Id: I23add5381ba7099485e5883bebad4997962b82ba
diff --git a/lib/Krawfish/Index/Fields/Ranks.pm b/lib/Krawfish/Index/Fields/Ranks.pm
new file mode 100644
index 0000000..73a85b9
--- /dev/null
+++ b/lib/Krawfish/Index/Fields/Ranks.pm
@@ -0,0 +1,25 @@
+package Krawfish::Index::Fields::Ranks;
+use Krawfish::Index::Fields::Rank;
+use strict;
+use warnings;
+
+sub new {
+ my $class = shift;
+ bless {}, $class;
+};
+
+# Get the rank by
+sub by {
+ my ($self, $field_id) = @_;
+
+ # Field may be ranked or not
+ return $self->{$field_id};
+};
+
+sub introduce_rank {
+ my ($self, $field_id, $collation) = @_;
+ $self->{$field_id} = Krawfish::Index::Fields::Rank->new($collation);
+};
+
+
+1;