File Coverage

blib/lib/Pg/CLI/Role/HasVersion.pm

Criterion	Covered	Total	%
statement	20	25	80.0
branch	1	6	16.6
condition			n/a
subroutine	7	8	87.5
pod			n/a
total	28	39	71.7

package Pg::CLI::Role::HasVersion;

use strict;
use warnings;
use namespace::autoclean;

our $VERSION = '0.14';

use IPC::Run3 qw( run3 );
use MooseX::Types::Moose qw( Str );

use Moose::Role;

has version => (
    is       => 'ro',
    isa      => Str,
    init_arg => '_version',         # for testing
    lazy     => 1,
    builder  => '_build_version',
);

has two_part_version => (
    is       => 'ro',
    isa      => Str,
    init_arg => undef,
    lazy     => 1,
    builder  => '_build_two_part_version',
);

sub _build_version {
    my $self = shift;

    my ( $output, $error );

    run3(
        [ $self->executable(), '--version' ],
        \undef,
        \$output,
        \$error,
    );

    die $error if $error;

    ## no critic (RegularExpressions::ProhibitCaptureWithoutTest)
    #
    # https://github.com/Perl-Critic/Perl-Critic/issues/533
    return $1
        if $output =~ /\Qpsql (PostgreSQL) \E([0-9]+\.[0-9]+(?:\.[0-9]+)?)/;
}

sub _build_two_part_version {
    my $self = shift;

    ## no critic (RegularExpressions::ProhibitCaptureWithoutTest)
    return $1 if $self->version() =~ /^([0-9]+.[0-9]+)/;
}

1;