File Coverage

blib/lib/Class/Utils.pm

Criterion	Covered	Total	%
statement	56	56	100.0
branch	10	10	100.0
condition			n/a
subroutine	11	11	100.0
pod	4	4	100.0
total	81	81	100.0

package Class::Utils;

use base qw(Exporter);
use strict;
use warnings;

use Error::Pure qw(err);
use List::Util qw(any);
use Readonly;

# Constants.
Readonly::Array our @EXPORT_OK => qw(set_params set_params_pub set_split_params
	split_params);

# Version.
our $VERSION = 0.14;

# Set parameters to user values.
sub set_params {
	my ($self, @params) = @_;

	while (@params) {
		my $key = shift @params;
		my $val = shift @params;
		if (! exists $self->{$key}) {
			err "Unknown parameter '$key'.";
		}
		$self->{$key} = $val;
	}

	return;
}

# Set parameters to user values - public variables.
sub set_params_pub {
	my ($self, @params) = @_;

	while (@params) {
		my $key = shift @params;
		my $val = shift @params;
		if ($key =~ m/^_/ms) {
			next;
		}
		if (! exists $self->{$key}) {
			err "Unknown parameter '$key'.";
		}
		$self->{$key} = $val;
	}

	return;
}

# Set params for object and other returns.
sub set_split_params {
	my ($self, @params) = @_;

	my @other_params;
	while (@params) {
		my $key = shift @params;
		my $val = shift @params;
		if (! exists $self->{$key}) {
			push @other_params, $key, $val;
		} else {
			$self->{$key} = $val;
		}
	}

	return @other_params;
}

# Split params to object and others.
sub split_params {
	my ($object_keys_ar, @params) = @_;

	my @object_params;
	my @other_params;
	while (@params) {
		my $key = shift @params;
		my $val = shift @params;
		if (any { $_ eq $key } @{$object_keys_ar}) {
			push @object_params, $key, $val;
		} else {
			push @other_params, $key, $val;
		}
	}

	return (\@object_params, \@other_params);
}

1;

__END__