File Coverage

blib/lib/Config/LNPath.pm

Criterion	Covered	Total	%
statement	31	31	100.0
branch	12	12	100.0
condition	2	2	100.0
subroutine	10	10	100.0
pod	3	3	100.0
total	58	58	100.0

package Config::LNPath;

use 5.006;
use strict;
use warnings;

our $VERSION = '0.02';

use YAML::XS qw/LoadFile/;
use Data::LNPath qw/lnpath/, {
	return_undef => 1
};
use Carp qw/croak/;
use Blessed::Merge;

sub new {
	my $self = bless $_[1] // {}, $_[0];
	croak "no config path passed to new" unless $self->{config};
	my $blessed = Blessed::Merge->new({ blessed => 0, ($self->{merge} ? %{ $self->{merge} } : ()) });
	$self->{data} = ref $self->{config} eq 'ARRAY'
		? $blessed->merge(map { LoadFile($_) } @{ $self->{config} })
		: LoadFile($self->{config});
	$self->{data} = $self->{data}->{$self->{section}} if $self->{section};
	$self;
}

sub find {
	lnpath($_[0]->{data}, $_[1])
		or croak sprintf "Could not find value from config using path -> %s", $_[1];
}

sub section_find {
	lnpath($_[0]->{data}->{$_[1]}, $_[2])
		or croak sprintf "Could not find value from config section -> %s", $_[1];
}

1; # End of Config::LNPath

__END__