File Coverage

blib/lib/Quantum/Superpositions/Lazy/ComputedState.pm

Criterion	Covered	Total	%
statement	22	26	84.6
branch	0	4	0.0
condition			n/a
subroutine	8	9	88.8
pod	2	2	100.0
total	32	41	78.0

package Quantum::Superpositions::Lazy::ComputedState;
$Quantum::Superpositions::Lazy::ComputedState::VERSION = '1.12';
use v5.24;
use warnings;
use Moo;
use Quantum::Superpositions::Lazy::Role::Operation;
use Types::Standard qw(ConsumerOf ArrayRef);
use Carp qw(croak);

use namespace::clean;

extends "Quantum::Superpositions::Lazy::State";

has "source" => (
	is => "ro",
	isa => ArrayRef,
	required => 1,
);

has "operation" => (
	is => "ro",
	isa => ConsumerOf ["Quantum::Superpositions::Lazy::Role::Operation"],
	required => 1,
);

sub clone
{
	my ($self) = @_;

	return $self->new(
		$self->%{qw(value weight source operation)}
	);
}

# TODO: allow merging with regular states
sub merge
{
	my ($self, $with) = @_;

	croak "cannot merge a state: values mismatch"
		if $self->value ne $with->value;
	croak "cannot merge a state: operation mismatch"
		if $self->operation->sign ne $with->operation->sign;

	return $self->new(
		weight => $self->weight + $with->weight,
		operation => $self->operation,
		value => $self->value,
		source => [$self->source->@*, $with->source->@*],
	);
}

1;

=head1 NAME

Quantum::Superpositions::Lazy::ComputedState - a weighted state implementation
with the source of the computation

=head1 DESCRIPTION

This is a subclass of L with extra fields
that allow tracking of the computation sources that produced the state. Objects
of this class are produced inside the
L block.

=head1 METHODS

All of the methods available in L, plus:

=head2 operation

Instance of a class consuming the
L role. This can be helpful to
determine what kind of operation was performed to obtain the state.

=head2 source

An array reference of state values that were used in the operation (in order).
The number of elements in the arrayref will depend of the operation type.