File Coverage

blib/lib/Pg/ServiceFile.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch	3	4	75.0
condition			n/a
subroutine	10	10	100.0
pod			n/a
total	33	34	97.0

package Pg::ServiceFile;

use Moo;
use Config::Pg::ServiceFile;
use Types::Standard qw/ArrayRef HashRef Str/;
use Types::Path::Tiny 'Path';

# ABSTRACT: Basic PostgreSQL connection service file interface

our $VERSION = '0.03';

has data => (
    is  => 'lazy',
    isa => Str,
);

has file => (
    is     => 'lazy',
    isa    => Path,
    coerce => 1,
);

has name => (
    is  => 'lazy',
    isa => Str,
);

has names => (
    is  => 'lazy',
    isa => ArrayRef,
);

has service => (
    is  => 'lazy',
    isa => HashRef,
);

has services => (
    is  => 'lazy',
    isa => HashRef,
);

sub _build_data { shift->file->slurp_utf8 }

sub _build_file { $ENV{PGSERVICEFILE} || '~/.pg_service.conf'}

sub _build_name { $ENV{PGSERVICE} || '' }

sub _build_names { [sort keys %{shift->services}] }

sub _build_service {
    my $self = shift;
    return $self->services->{$self->name};
}

sub _build_services { Config::Pg::ServiceFile->read_string(shift->data) }

1;

__END__