Catmandu Atom ingest v1

ingest.pl

#!/usr/bin/perl
 
use Catmandu::Importer::Atom;
use Catmandu::Store::ElasticSearch;
use Data::Dumper;
use Modern::Perl;
 
my $feed = 'http://planet.code4lib.org/atom.xml';
 
my $importer = Catmandu::Importer::Atom->new( url => $feed );
 
my $store = Catmandu::Store::ElasticSearch->new( index_name => 'dbabel' );
$store->bag->delete_all;
 
$store->bag->add_many( $importer );
$store->bag->commit;
 
my $hits = $store->bag->search( query => 'library' )->to_array;
 
foreach my $hit ( @{ $hits } ) {
 
say "* ", $hit->{'_id'}, " ", $hit->{'title'};
 
}