File Coverage

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

Criterion	Covered	Total	%
statement	15	15	100.0
branch	4	6	66.6
condition	1	3	33.3
subroutine	5	5	100.0
pod			n/a
total	25	29	86.2

package Quantum::Superpositions::Lazy::Role::Operation;
$Quantum::Superpositions::Lazy::Role::Operation::VERSION = '1.12';
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) = @_;

	my ($params_min, $params_max) = ref $param_num eq 'ARRAY'
		? $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;
}

1;