File Coverage

blib/lib/App/Prove/Elasticsearch/Indexer/MMDist.pm

Criterion	Covered	Total	%
statement	9	9	100.0
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	12	12	100.0

# ABSTRACT: Names your elasticsearch index after your distribution as defined in Makefile.PL
# PODNAME: App::Prove::Elasticsearch::Indexer::MMDist

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

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

our $index = __CLASS__->SUPER::index;
our $dfile //= 'Makefile.PL';

if (open(my $dh, '<', $dfile)) {
    ;
    while (<$dh>) {
        ($index) = $_ =~ /DISTNAME.*\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__