Added mapper logic - create full index + mapping

Author: mickeyn

lib/MetaCPAN/Mapper.pm

@@ -35,8 +35,30 @@ sub index_exists ($self, $index) {
     $self->{es}->indices->exists( index => $index );
 }
 
-sub index_create ($self, $index) {
-    $self->{es}->indices->create( index => $index );
+sub index_create ($self, %args) {
+    my $index = $args{index};
+    $index or die "Need an index name to create an index\n";
+
+    my $add_mapping = $args{add_mapping};
+    my $delete_first = $args{delete_first};
+
+    $self->index_delete($index, 1) if ($delete_first);
+
+    my @body;
+    if ($add_mapping) {
+        my $home = home();
+        my $mapping_file = $home->child('conf/es/' . $index . '/mapping.json');
+        my $mapping = decode_json $mapping_file->slurp();
+        my $settings_file = $home->child('conf/es/' . $index . '/settings.json');
+        my $settings = decode_json $settings_file->slurp();
+
+        @body = ( body => {
+            settings => $settings,
+            mappings => { $index => $mapping },
+        });
+    }
+
+    $self->{es}->indices->create( index => $index, @body );
 }
 
 sub index_delete ($self, $index, $skip_exists) {