File Coverage

blib/lib/Net/Etcd/Config.pm

Criterion	Covered	Total	%
statement	15	27	55.5
branch	0	2	0.0
condition			n/a
subroutine	5	8	62.5
pod	2	2	100.0
total	22	39	56.4

use utf8;
package Net::Etcd::Config;

use strict;
use warnings;

use Moo;
use namespace::clean;

=head1 NAME

Net::Etcd::Config

=cut

our $VERSION = '0.022';

=head1 ACCESSORS

=head2 etcd

=cut

has etcd => ( is => 'lazy' );

sub _build_etcd {
    my $self  = shift;
    my $found = `which etcd`;
    if ( $? == 0 ) {
        chomp($found);
        return $found;
    }
    return;
}

=head2 configuration

=cut

sub configuration {
    return Net::Etcd::Config->new;
}

=head2 configure

=cut

sub configure {
    my $class = shift;
    my $code  = shift;
    local $_ = $class->configuration;
    $code->($_);
    return;
}

1;