File Coverage

blib/lib/Compiled/Params/OO.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch	4	4	100.0
condition			n/a
subroutine	7	7	100.0
pod	1	1	100.0
total	37	37	100.0

package Compiled::Params::OO;

use 5.006;
use strict;
use warnings;

our $VERSION = '1.00';

use Type::Params qw/compile_named_oo compile/;
use Types::Standard qw/CodeRef/;
use base 'Import::Export';

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

sub cpo {
	my (%params, %compile, %build) = @_;
	for my $key (keys %params) {
		$compile{$key} = CodeRef;
		$build{$key} = ref $params{$key} eq 'HASH'
			? compile_named_oo( map { ref $params{$key}{$_} eq 'HASH'
				? ($_ => delete $params{$key}{$_}{type} => $params{$key}{$_})
				: ($_ => $params{$key}{$_})
			} keys %{$params{$key}})
			: compile(@{$params{$key}});
	}
	return compile_named_oo(%compile)->(%build);
}

1;

__END__