view release on metacpan or  search on metacpan

lib/Quantum/Superpositions/Lazy.pm  view on Meta::CPAN

{
	my (@superpositions) = @_;

	return map {
		croak "Element not collapsible"
			unless is_collapsible($_);
		$_->collapse;
	} @superpositions;
}

sub any_state(&)
{
	my ($sub) = @_;

	return run_sub_as $sub, reducer_type => "any";
}

sub every_state(&)
{
	my ($sub) = @_;

	return run_sub_as $sub, reducer_type => "all";
}

sub one_state(&)
{
	my ($sub) = @_;

	return run_sub_as $sub, reducer_type => "one";
}

sub fetch_matches(&)
{
	my ($sub) = @_;

	return run_sub_as $sub, compare_bool => 0;
}

sub with_sources(&)
{
	my ($sub) = @_;

	return run_sub_as $sub, sourced_calculations => 1;
}

1;
__END__

=head1 NAME