Catmandu ElasticSearch error handler

gistfile1.txt

use Catmandu;
use Data::Dumper;

my $importer = Catmandu->importer('Mock');

# Create a store with a vey strict schema that always produces errors ...

my $store    = Catmandu->store('ElasticSearch', 
				index_name => 'test2',
				bags => { data => {
						on_error => sub {
							warn Dumper(\@_);
						} 
					}
				},
				index_mappings => {
					data => {
						dynamic => 'strict',
						properties => {
							title => { type => 'string'}
						}
					}
				});

$store->add_many($importer);

$store->commit;