view release on metacpan or  search on metacpan

lib/App/Prove/Elasticsearch/Indexer/DzilDist.pm  view on Meta::CPAN

# ABSTRACT: Names your elasticsearch index after your distribution as defined in dist.ini
# PODNAME: App::Prove::Elasticsearch::Indexer::DzilDist

package App::Prove::Elasticsearch::Indexer::DzilDist;
$App::Prove::Elasticsearch::Indexer::DzilDist::VERSION = '0.001';
use strict;
use warnings;

use parent qw{App::Prove::Elasticsearch::Indexer};

#Basically, do this:
#our $index = `awk '/^name/ {print \$NF}' dist.ini`;

our $index = __CLASS__->SUPER::index;
our $dfile //= 'dist.ini';

if (open(my $dh, '<', $dfile)) {
    while (<$dh>) {
        ($index) = $_ =~ /^name\s*?=\s*?(.*)/;
        if ($index) {
            $index =~ s/^\s+//;
            last;
        }
    }
    close $dh;
} else {
    print
      "# WARNING: Could not open $dfile, falling back to index name '$index'\n";
}

1;

__END__

=pod

=encoding UTF-8

=head1 NAME

App::Prove::Elasticsearch::Indexer::DzilDist - Names your elasticsearch index after your distribution as defined in dist.ini

=head1 VERSION

version 0.001

=head2 GOTCHAS

If dist.ini cannot be found, the index name will fall back to the default indexer's name.

=head1 AUTHOR

George S. Baugh <teodesian@cpan.org>

=head1 SOURCE

The development version is on github at L<http://https://github.com/teodesian/App-Prove-Elasticsearch>
and may be cloned from L<git://https://github.com/teodesian/App-Prove-Elasticsearch.git>

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2018 by George S. Baugh.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut