File Coverage

blib/lib/Manipulator.pm

Criterion	Covered	Total	%
statement	36	43	83.7
branch	9	14	64.2
condition			n/a
subroutine	10	10	100.0
pod	0	3	0.0
total	55	70	78.5

package Manipulator;
use 5.006; use strict; use warnings;
our $VERSION = '0.01';
use overload '&{}' => 'engage';
use Tie::IxHash;
use base 'Import::Export';

our %EX = (
	manipulate => [qw/all/],
);

sub manipulate {
	my (%args) = (scalar @_ > 1
		? @_
		: ref $_[0] eq 'CODE'
			? (code => $_[0])
			: ref $_[0] eq 'HASH'
				? %{ $_[0] }
				: @{ $_[0] }
	);
	bless \%args, __PACKAGE__;
}

sub engage {
	my ($self) = shift;
	return sub {
		my (@params) = @_;

		if (scalar @params == 1) {
			my $hash = shift @params;
			@params = map {($_, $hash->{$_})} sort { $a <=> $b } keys %{$hash};
		}

		if (scalar keys %{$self} > 1) {
			for (my $i = 0; $i < scalar @params; $i += 2) {
				my ($key, $value) = ($params[$i], $params[$i + 1]);
				$params[$i + 1] = $self->{$key}->($value);
			}
		} else {
			for (my $i = 0; $i < scalar @params; $i++) {
				$params[$i] = $self->{code}->($params[$i]);
			}
		}

		return wantarray ? @params : {@params};
	};
}

sub ordered {
	my ($self, @params) = @_;
	my @data = $self->(@params);
	my %out; tie %out, 'Tie::IxHash', @data;
	return wantarray ? %out : \%out;
}

1;

__END__