File Coverage

lib/Context/Singleton/Frame/Promise/Rule.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch	3	4	75.0
condition			n/a
subroutine	7	7	100.0
pod	0	4	0.0
total	30	35	85.7

use strict;
use warnings;

package Context::Singleton::Frame::Promise::Rule;

our $VERSION = v1.0.4;

use parent qw[ Context::Singleton::Frame::Promise ];

sub new {
	my ($class, %params) = @_;

	my $self = $class->SUPER::new (%params);

	$self->{rule} = $params{rule};

	$self;
}

sub rule {
	$_[0]->{rule};
}

sub notify_deducible {
	my ($self, $in_depth) = @_;

	$self->set_deducible ($in_depth)
		if $self->deducible_dependencies;
}

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

	for my $dependency ($self->deducible_dependencies) {
		next unless $dependency->deduced_in_depth == $self->deduced_in_depth;

		return $dependency;
	}
}

1;