File Coverage

blib/lib/App/Prove/Elasticsearch/Versioner/Default.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch	7	8	87.5
condition			n/a
subroutine	6	6	100.0
pod	1	1	100.0
total	40	41	97.5

# ABSTRACT: Determine the version of a system under test via the module's Changes file for upload to elasticsearch
# PODNAME: App::Prove::Elasticsearch::Versioner::Default

package App::Prove::Elasticsearch::Versioner::Default;
$App::Prove::Elasticsearch::Versioner::Default::VERSION = '0.001';
use strict;
use warnings;
use utf8;

use File::Basename qw{dirname};
use Cwd qw{abs_path};

our $version = {};

sub get_version {
    my $loc = abs_path(dirname(shift) . "/../Changes");

    return $version->{$loc} if $version->{$loc};
    my $ret;
    open(my $fh, '<', $loc) or die "Could not open Changes in $loc";
    while (<$fh>) {
        ($ret) = $_ =~ m/(^\S*)/;
        last if $ret;
    }
    close $fh;
    die 'Could not determine the latest version from Changes!' unless $ret;
    $version->{$loc} = $ret;
    return $ret;
}

*get_file_version = \&get_version;

1;

__END__