File Coverage

blib/lib/EntityModel/Deferred.pm

Criterion	Covered	Total	%
statement	18	20	90.0
branch	5	6	83.3
condition			n/a
subroutine	5	6	83.3
pod	4	5	80.0
total	32	37	86.4

package EntityModel::Deferred;
{
  $EntityModel::Deferred::VERSION = '0.102';
}
use EntityModel::Class {
	_isa	=> [qw(Mixin::Event::Dispatch)],
	event_queue	=> { type => 'array', subclass => 'arrayref' },
};

=head1 NAME

EntityModel::Deferred - value which is not yet ready

=head1 VERSION

version 0.102

=head1 SYNOPSIS

 use EntityModel::Deferred;
 my $deferred = EntityModel::Deferred->new;

=head1 DESCRIPTION


=head1 METHODS

=cut

=head2 value

=cut

sub new {
	my $self = shift->SUPER::new;
	my %args = @_;
	$self->provide_value(delete $args{value}) if exists $args{value};
	return $self;
}
sub value {
	my $self = shift;
	die "Value is not yet ready" unless exists $self->{value};
	return $self->{value};
}

=head2 provide_value

=cut

sub provide_value {
	my $self = shift;
	$self->{value} = shift;
	$self->invoke_event('ready' => $self->{value});
	return $self;
}

=head2 raise_error

=cut

sub raise_error {
	my $self = shift;
	$self->invoke_event('error' => @_);
}

sub add_handler {
	my $self = shift;
	my $rslt = $self->SUPER::add_handler_for_event(@_);
	$self->invoke_event('ready' => $self->{value}) if exists $self->{value};
	return $rslt;
}

1;

__END__