File Coverage

blib/lib/Quantum/Superpositions/Lazy/Role/Operation.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch	4	6	66.6
condition	1	3	33.3
subroutine	5	5	100.0
pod			n/a
total	27	31	87.1

package Quantum::Superpositions::Lazy::Role::Operation;

our $VERSION = '1.10';

use v5.24;
use warnings;
use Carp qw(croak);

use Moo::Role;

requires qw(
	run
	supported_types
);

has "sign" => (
	is => "ro",
);

sub _clear_parameters
{
	my ($self, $param_num, @parameters) = @_;
	@parameters = grep defined, @parameters;

	my ($params_min, $params_max) = ref $param_num eq ref []
		? $param_num->@*
		: ($param_num, undef)
		;

	croak "not enough parameters to " . $self->sign
		if @parameters < $params_min;

	croak "too many parameters to " . $self->sign
		if defined $params_max && @parameters > $params_max;

	return @parameters;
}

1;