File Coverage

blib/lib/Config/Utils.pm

Criterion	Covered	Total	%
statement	68	68	100.0
branch	22	22	100.0
condition	2	3	66.6
subroutine	8	8	100.0
pod	3	3	100.0
total	103	104	99.0

package Config::Utils;

# Pragmas.
use base qw(Exporter);
use strict;
use warnings;

# Modules.
use Error::Pure qw(err);
use Readonly;

# Constants.
Readonly::Array our @EXPORT_OK => qw(conflict hash hash_array);

# Version.
our $VERSION = 0.06;

# Check conflits.
sub conflict {
	my ($self, $config_hr, $key) = @_;
	if ($self->{'set_conflicts'} && exists $config_hr->{$key}) {
		err 'Conflict in \''.join('.', @{$self->{'stack'}}, $key).
			'\'.';
	}
	return;
}

# Create record to hash.
sub hash {
	my ($self, $key_ar, $val) = @_;
	my $config_hr = $self->{'config'};
	my $num = 0;
	foreach my $key (@{$key_ar}) {
		if ($num != $#{$key_ar}) {
			if (! exists $config_hr->{$key}) {
				$config_hr->{$key} = {};
			} elsif (ref $config_hr->{$key} ne 'HASH') {
				conflict($self, $config_hr, $key);
				$config_hr->{$key} = {};
			}
			$config_hr = $config_hr->{$key};
			push @{$self->{'stack'}}, $key;
		} else {
			conflict($self, $config_hr, $key);

			# Process callback.
			if (defined $self->{'callback'}) {
				$val = $self->{'callback'}->(
					[@{$self->{'stack'}}, $key],
					$val,
				);
			}

			# Add value.
			$config_hr->{$key} = $val;

			# Clean.
			$self->{'stack'} = [];
		}
		$num++;
	}
	return;
}

# Create record to hash.
sub hash_array {
	my ($self, $key_ar, $val) = @_;
	my $config_hr = $self->{'config'};
	my $num = 0;
	foreach my $key (@{$key_ar}) {
		if ($num != $#{$key_ar}) {
			if (! exists $config_hr->{$key}) {
				$config_hr->{$key} = {};
			} elsif (ref $config_hr->{$key} ne 'HASH') {
				conflict($self, $config_hr, $key);
				$config_hr->{$key} = {};
			}
			$config_hr = $config_hr->{$key};
			push @{$self->{'stack'}}, $key;
		} else {

			# Process callback.
			if (defined $self->{'callback'}) {
				$val = $self->{'callback'}->(
					[@{$self->{'stack'}}, $key],
					$val,
				);
			}

			# Add value.
			if (ref $config_hr->{$key} eq 'ARRAY') {
				push @{$config_hr->{$key}}, $val;
			} elsif ($config_hr->{$key}) {
				my $foo = $config_hr->{$key};
				$config_hr->{$key} = [$foo, $val];
			} else {
				$config_hr->{$key} = $val;
			}

			# Clean.
			$self->{'stack'} = [];
		}
		$num++;
	}
	return;
}

1;

__END__